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

18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	1	"{ Encoding: utf8 }"
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 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
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	93	logNetCommunications'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	94	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	95	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	96	privateIn:AbstractSettingsApplication
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	97	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	98
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	99	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	100	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	101	allowSendMailFromDebugger useNewLayoutInDebugger
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	102	hideSupportCodeInDebugger'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	103	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	104	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	105	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	106	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	107
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	108	AbstractSettingsApplication subclass:#DisplaySettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	109	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	110	clipEncodingListSelection sizeX monitorList ditherList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	111	clipEncodingList ditherListSelection deepIcons monitorSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	112	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	113	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	114	screenDepthVisualLabelHolder maxCopyBufferSize usedWidth
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	115	usedHeight enableVMWareDrawingBugWorkaround'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	116	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	117	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	118	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	119	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	121	AbstractSettingsApplication subclass:#EditSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	122	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	123	searchDialogIsModal startTextDragWithControl
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	124	extendedWordSelectMode whitespaceWordSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	125	enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	126	showAcceptCancelBarInBrowser useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	127	autoIndentInCodeView immediateCodeCompletion
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	128	codeCompletionOnControlKey codeCompletionOnTabKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	129	selectionExtensionMode'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	130	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	131	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	132	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	133	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	135	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	136	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	137	searchDialogIsModal startTextDragWithControl catchClassRedefs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	138	fullHistoryUpdate historyLines keepSourceSelection keepSource
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	139	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	140	userNameInHistoryHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	141	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	142	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	143	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	144	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	145
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	146	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	147	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	148	hasCreatedServerChannel useFcgiHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	149	hasWebServerClassesNotLoadedHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	150	classVariableNames:'CreatedServers'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	151	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	152	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	153	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	154
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	155	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	156	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	157	labelTextHolder changeMapHolder currentKeyHolder functionKeyList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	158	rawKeyList mappings'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	159	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	160	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	161	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	162	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	163
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	164	AbstractSettingsApplication subclass:#LanguageSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	165	instanceVariableNames:'languageHolder languageIndexHolder languageList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	166	languageListHolder listOfLanguages translatedLanguages
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	167	noticeLabelHolder currentFlagAndLanguageChannel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	168	currentLanguageLabel perLanguageResources useSystemLanguageHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	169	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	170	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	171	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	172	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	174	AbstractSettingsApplication subclass:#MemorySettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	175	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	176	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	177	igcFreeAmount stackLimit supportsJustInTimeCompilation
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	178	methodCodeSizeLimit'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	179	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	180	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	181	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	182	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	183
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	184	AbstractSettingsApplication subclass:#MiscBridgeCommunicationSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	185	instanceVariableNames:'smallTeamServerEnabled selectedSmallTeamHost listOfSmallTeamHosts
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	186	smallTeamHostEntry dotNetBridgeVerbose dotNetBridgeRunsInIDE
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	187	smalltalkBridgeEnabled smalltalkBridgeVerbose'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	188	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	189	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	190	privateIn:AbstractSettingsApplication
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	191	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	192
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	193	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	194	instanceVariableNames:'smtpServerName'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	195	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	196	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	197	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	198	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	199
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	200	AbstractSettingsApplication subclass:#MiscDisplay2SettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	201	instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	202	opaqueTableColumnResize lowerOnRightClickInTitle
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	203	lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	204	nativeFileDialogs cartoonToolTipStyle'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	205	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	206	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	207	privateIn:AbstractSettingsApplication
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	208	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	209
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	210	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	211	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	212	beepEnabled takeFocus activateOnClick
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	213	formatHostNameinWindowLabels hostNameInLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	214	showAccelerators newWindowLabelFormat formatHostNameWindowLabel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	215	selectOnRightClick popUpMenuOnRelease
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	216	showRightButtonMenuOnRelease formatHostNameWindowLabel1
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	217	formatHostNameWindowLabel2 allowMouseWheelZoom
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	218	forceWindowsIntoMonitorBounds button2WithAltKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	219	autoRaiseOnFocusIn menuPanelTakesFocusOnClick
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	220	shouldRememberLastExtentHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	221	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	222	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	223	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	225
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	226	AbstractSettingsApplication subclass:#MiscSmalltalkCommunicationSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	227	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	228	windowMigrationPassword windowMigrationAuthenticate
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	229	enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	230	listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	231	removeHostEnabled smalltalkBridgeEnabled smalltalkBridgeVerbose
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	232	smallTeamViaXMPPEnabled selectedXMPPSmallTeamUser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	233	xmppSmallTeamUserEntry listOfXMPPSmallTeamUsers
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	234	smallteamXMPPServer smallteamXMPPUser smallteamXMPPPassword'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	235	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	236	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	237	privateIn:AbstractSettingsApplication
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	238	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	239
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	240	AbstractSettingsApplication subclass:#OsiSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	241	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	242	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	243	osiCMISEMessageLogging osiACSEDataLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	244	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	245	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	246	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	247	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	248	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	249
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	250	AbstractSettingsApplication subclass:#PackagePathSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	251	instanceVariableNames:'listOfFoldersInPath selectedFolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	252	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	253	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	254	privateIn:AbstractSettingsApplication
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	255	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	256
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	257	AbstractSettingsApplication subclass:#PrinterSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	258	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	259	landscape pageFormatList pageFormat unitList leftMargin
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	260	possiblePrinters printerType printerTypeSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	261	printCommandList commandList printCommand printFilename
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	262	enableFormat enablelandscape enableMargins enableColorBox
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	263	printerIsDrivenByCommand printerSupportsPrintingToFile
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	264	supportsPageFormatSetting supportsMarginSetting
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	265	supportsColorSetting'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	266	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	267	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	268	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	269	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	270
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	271	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	272	instanceVariableNames:'dynamicPrios preemptive'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	273	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	274	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	275	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	276	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	277
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	278	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	279	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	280	rDoitErrorDebugging rDoitServerPortOrPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	281	rDoitEnabledOnlyViaLocalConnection scriptingEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	282	scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	283	scriptingErrorLogging scriptingLogging scriptingServerPortOrPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	284	rDoitOnlyViaLocalConnection'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	285	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	286	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	287	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	288	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	289
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	290	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	291	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	292	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	293	sqlServerPort sqlStatementLogging'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	294	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	295	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	296	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	297	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	298
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	299	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	300	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	301	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	302	stcCompilationSelection stcCompilationList makeCommand
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	303	stcKeepCIntermediate supportedCCompilerSelection verbose'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	304	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	305	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	306	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	307	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	308
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	309	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	310	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	311	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	312	blockArgumentsOnNewLine spaceAfterReturnToken
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	313	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	314	oldUserPreferences reformatLocked'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	315	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	316	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	317	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	318	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	319
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	320	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	321	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	322	setupSourceCodeManager checkClassesWhenCheckingIn
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	323	formattingConfiguration flushSourceCache localSourceFirst
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	324	repositoryHolder manager repository listOfModules
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	325	managerTypePerModule addPerModuleRoot removeEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	326	perModuleRootModule removePerModuleRoot perModuleRoot
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	327	selectedPerModuleRoot rootsPerModule
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	328	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	329	managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	330	managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	331	keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	332	managerTypeToAddHolder managerPerMatchingModule
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	333	selectedManagerPerMatchingModuleHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	334	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	335	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	336	LastStorePassword FillCacheProcess'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	337	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	338	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	339	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	340
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	341	SimpleDialog subclass:#PerModuleManagerSettingDialog
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	342	instanceVariableNames:'packageHolder managerNameHolder availableManagers'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	343	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	344	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	345	privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	346	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	347
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	348	AbstractSettingsApplication subclass:#StyleSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	349	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	350	styleDirectoryContents infoLabelHolder noticeLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	351	previewVisibleHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	352	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	353	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	354	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	355	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	357	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	358	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	359	fullSelectorCheck syntaxColoring oldUserPreferences
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	360	syntaxFontSelector syntaxFonts syntaxElementList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	361	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	362	emphasisDictionary resetListDictionary changedSettings'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	363	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	364	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	365	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	366	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	367
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	368	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	369	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	370	showMethodTemplate useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	371	showEmbeddedTestRunnerInBrowser showBookmarkBar
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	372	webBrowserLikeLayout sortAndIndentClassesByInheritance
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	373	showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	374	sourceCodeManagementMenuLayout confirmRefactorings
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	375	smallLintRulesetDefault showMarqueeInfo'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	376	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	377	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	378	privateIn:AbstractSettingsApplication
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	379	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	380
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	381	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	382	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	383	changeFileName beepForInfoDialog beepForWarningDialog
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	384	beepForErrorDialog flyByHelp beepEnabled beepInEditor
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	385	toolTipAutoHideDelay sendMessagesAlsoToTranscript
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	386	onlyShowTooltipsForActiveWindow'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	387	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	388	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	389	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	390	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	391
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	392	AbstractSettingsApplication subclass:#TerminalViewSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	393	instanceVariableNames:'terminalOutputIsUTF8 terminalInputIsUTF8'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	394	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	395	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	396	privateIn:AbstractSettingsApplication
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	397	!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	398
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	399	AbstractSettingsApplication subclass:#ToolboxSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	400	instanceVariableNames:'changesBrowserClassName fileBrowserClassName'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	401	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	402	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	403	privateIn:AbstractSettingsApplication
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	404	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	405
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	406	ApplicationModel subclass:#ClassToolSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	407	instanceVariableNames:'optionValueHolder optionValueList optionLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	408	optionSelectionHolder optionLabelList optionCustomValueHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	409	optionCustomValueVisibleHolder optionCustomValueBackgroundHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	410	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	411	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	412	privateIn:AbstractSettingsApplication::ToolboxSettingsAppl
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	413	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	414
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	415	AbstractSettingsApplication subclass:#ToolsSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	416	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	417	showClockInLauncher useNewChangesBrowser useNewFileBrowser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	418	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	419	useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	420	showTipOfTheDayAtStartup autoRaiseTranscript eclipseStyleMenus
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	421	useNewChangeSetBrowser useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	422	externalDiffCommandTemplate'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	423	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	424	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	425	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	426	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	427
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	428	AbstractSettingsApplication subclass:#WorkspaceSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	429	instanceVariableNames:'usersModuleName workspaceDirectory'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	430	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	431	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	432	privateIn:AbstractSettingsApplication
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	433	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	434
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	435	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	436
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	437	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	438	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	439	COPYRIGHT (c) 2002 by eXept Software AG
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	440	All Rights Reserved
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	441
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	442	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	443	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	444	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	445	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	446	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	447	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	448	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	449	!
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	450
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	451	documentation
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	452	"
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	453	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	454	For a real settings dialog, you need a concrete settings dialog class to hold the pages
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	455	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	456	and someone who specifies the hierarchy of settings-pages in a spec.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	457	(as an example, see SettingsDialog class>>defaultSettingsApplicationList)
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	458
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	459	typical use:
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	460
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	461	\|settingsList settingsApp\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	462
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	463	settingsList := NewLauncher settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	464
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	465	settingsApp := SettingsDialog new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	466	'settingsApp requestor:requestingApplication'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	467	settingsApp installSettingsEntries:settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	468	settingsApp allButOpen.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	469	settingsApp window label:('ST/X Settings').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	470	settingsApp openWindow.
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	471
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	472	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	473	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	474
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	475	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	476
68504047f229 * empty log message * penk parents: 4286 diff changeset	477	classResources
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	478	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	479	^ AbstractLauncherApplication classResources
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	480	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	481	^ super classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	482	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	483
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	484	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	485	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	486	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	487
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	488	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	489	^ AbstractLauncherApplication resourcePackName
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	490	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	491	^ super resourcePackName
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	492	!
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	493
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	494	subEntryRawSettingsList
10893 b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	495	"redefine if I have sub-settings entries"
b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	496
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	497	^ #()
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	498
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	499	"Created: / 25-10-2010 / 09:37:21 / cg"
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	500	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	501
5283 9264c15059e7 category change penk parents: 5280 diff changeset	502	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	503
9264c15059e7 category change penk parents: 5280 diff changeset	504	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	505	self subclassResponsibility
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	506	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	507
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	508	windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	509	"This resource specification was automatically generated
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	510	by the UIPainter of ST/X."
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	511
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	512	"Do not manually edit this!! If it is corrupted,
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	513	the UIPainter may not be able to read the specification."
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	514
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	515	"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	516	UIPainter new openOnClass:AbstractSettingsApplication andSelector:#windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	517	AbstractSettingsApplication new openInterface:#windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	518	"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	519
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	520	<resource: #canvas>
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	521
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	522	^
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	523	#(FullSpec
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	524	name: windowSpecForDialog
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	525	window:
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	526	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	527	label: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	528	name: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	529	labelChannel: settingsString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	530	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	531	bounds: (Rectangle 0 0 531 488)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	532	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	533	component:
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	534	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	535	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	536	(SubCanvasSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	537	name: 'Content'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	538	layout: (LayoutFrame 7 0 0 0 -7 1 -40 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	539	level: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	540	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	541	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	542	minorKey: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	543	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	544	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	545	(HorizontalPanelViewSpec
16593 6f7fc11a4ab4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16585 diff changeset	546	name: 'ButtonPanel'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	547	layout: (LayoutFrame 5 0 -40 1 -7 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	548	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	549	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	550	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	551	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	552	reverseOrderIfOKAtLeft: true
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	553	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	554	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	555	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	556	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	557	label: 'Cancel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	558	name: 'CancelButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	559	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	560	model: doCancel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	561	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	562	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	563	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	564	label: 'OK'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	565	name: 'OKButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	566	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	567	model: doAccept
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	568	enableChannel: modifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	569	isDefault: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	570	defaultable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	571	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	572	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	573	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	574
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	575	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	576	keepSpaceForOSXResizeHandleH: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	577	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	578	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	579
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	580	)
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	581	)
5283 9264c15059e7 category change penk parents: 5280 diff changeset	582	! !
9264c15059e7 category change penk parents: 5280 diff changeset	583
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	584	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	585
15947 4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	586	isAbstract
4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	587	^ (self == AbstractSettingsApplication)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	588	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	589
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	590	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	591	"returns a set of words to match in the quickSearch.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	592	Here, as a fallback, the keys from the help spec,
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	593	the widget names and label aspects are returned
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	594	Notice that both all words and its current language translation are included
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	595	in the set and will be matched against the word in the quick search field"
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	596
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	597	\|words helpKeys resources withoutSpecialChars
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	598	addSingleWord addEachWord addEachWordXLated\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	599
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	600	"/ translate
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	601	resources := self classResources.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	602
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	603	withoutSpecialChars :=
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	604	[:word \|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	605	\|w\|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	606
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	607	w := word.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	608	[w startsWithAnyOf:'.,-'] whileTrue:[w := w copyButFirst].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	609	[w endsWithAnyOf:'.,-'] whileTrue:[w := w copyButLast].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	610	w
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	611	].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	612
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	613	addSingleWord :=
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	614	[:word :origin\|
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	615	true "(w first isLetter)" ifTrue:[
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	616	words add:(withoutSpecialChars value:word asLowercase).
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	617	].
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	618	].
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	619
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	620	addEachWord :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	621	[:aString :origin\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	622	aString asCollectionOfWordsDo:[:w \|
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	623	addSingleWord value:w value:origin
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	624	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	625	].
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	626
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	627	addEachWordXLated :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	628	[:aString :origin \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	629	\|xlation\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	630
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	631	aString notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	632	addEachWord value:aString value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	633	(xlation := resources string:aString) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	634	xlation ~= aString ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	635	addEachWord value:xlation value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	636	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	637	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	638	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	639	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	640
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	641	words := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	642	helpKeys := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	643
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	644	self windowSpec decodeAsLiteralArray do:[:eachSpec \|
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	645	\|helpKey label name\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	646
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	647	label := eachSpec perform:#label ifNotUnderstood:nil.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	648	label notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	649	addEachWordXLated value:label value:(#label->eachSpec).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	650	].
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	651	name := eachSpec perform:#name ifNotUnderstood:nil.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	652	name notNil ifTrue:[
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	653	addEachWordXLated value:name value:(#name->eachSpec).
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	654	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	655
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	656	(helpKey := eachSpec activeHelpKey) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	657	helpKeys add:helpKey.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	658	"/ words add:helpKey string asLowercase.
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	659	addSingleWord value:helpKey string value:(#helpKey->eachSpec)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	660	].
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	661	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	662	self helpSpec keys do:[:k \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	663	helpKeys add:k.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	664	addSingleWord value:k value:#helpKeyTop
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	665	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	666
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	667	helpKeys do:[:eachKey \|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	668	\|helpText\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	669
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	670	helpText := self helpSpec at:eachKey ifAbsent:nil.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	671	addEachWordXLated value:helpText value:(#helpText->eachKey).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	672	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	673	^ words
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	674
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	675	"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	676	AbstractSettingsApplication::BuildSettingsAppl quickSearchStrings
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	677	Expecco::HotkeysSettingsApp quickSearchStrings
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	678	"
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	679
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	680	"Modified: / 25-06-2018 / 14:26:05 / Claus Gittinger"
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	681	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	682
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	683	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	684
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	685	clearDidModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	686	"clear the flag that any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	687	Not to confuse with the modified flag, which means that a settings app's
16125 a3bfff28fd3c #DOCUMENTATION Stefan Vogel <sv@exept.de> parents: 16090 diff changeset	688	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	689	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	690	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	691
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	692	didModifySettings := false.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	693	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	694
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	695	didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	696	"true, if any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	697	Not to confuse with the modified flag, which means that a settings app's
16125 a3bfff28fd3c #DOCUMENTATION Stefan Vogel <sv@exept.de> parents: 16090 diff changeset	698	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	699	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	700	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	701
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	702	^ didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	703	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	704
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	705	requestor:anotherApplication
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	706	requestor := anotherApplication.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	707
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	708	"Modified: / 12-05-2010 / 17:16:37 / cg"
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	709	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	710
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	711	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	712	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	713	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	714
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	715	settingsDialog:aSettingsDialog
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	716	settingsDialog := aSettingsDialog.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	717
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	718	"Modified: / 12-05-2010 / 18:44:09 / cg"
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	719	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	720
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	721	settingsString
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	722	^ settingsString
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	723	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	724
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	725	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	726
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	727	accept
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	728	self saveSettings
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	729
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	730	"Created: / 14-10-2014 / 09:18:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	731	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	732
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	733	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	734	self readSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	735	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	736
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	737	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	738	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	739	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	740	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	741	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	742
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	743	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	744	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	745
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	746	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	747	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	748
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	749	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	750	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	751
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	752	DebugView newDebugger.
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	753
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	754	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	755	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	756	app := transcript topView application.
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	757	app perform:#reopenLauncher ifNotUnderstood:[].
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	758	].
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	759
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	760	self window topView raise.
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	761	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	762
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	763	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	764	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	765	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	766
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	767	saveRequestAsking:askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	768	\|result holder notAgainText\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	769
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	770	self hasUnsavedChanges ifTrue:[
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	771	"/ debugging
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	772	false ifTrue:[
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	773	self whichUnsavedChangesInto:[:aspect \|
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	774	Transcript show:'different: '; showCR:aspect.
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	775	].
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	776	].
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	777
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	778	askForChangeOnRelease ifTrue:[
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	779	notAgainText := resources string:'Do not ask this again (always save changes when closing)'.
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	780
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	781	Dialog
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	782	modifyingBoxWith:[:box \|
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	783	holder := false asValue.
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	784
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	785	"sr: bugfix: sorry but #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	786	does not support #noButton like #confirm: does.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	787	Problem #noButton is always nil.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	788	Seams like copy&paste code from #closeRequest but #confirm replaced by #confirmWithCancel.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	789	I did a quick look, about how to support #noButton also for #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	790	but the effort and stability risks are too high for me for such a gimmick"
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	791	"/ holder onChangeEvaluate:[
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	792	"/ box noButton enabled:(holder value not)
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	793	"/ ].
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	794
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	795	box verticalPanel add:((CheckBox label:notAgainText) model:holder).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	796	]
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	797	do:[
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	798	result := self confirmWithCancel:
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	799	(self resources
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	800	string:'Apply changes made in %1 ?'
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	801	with:(resources string:settingsString) allBold).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	802	].
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	803
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	804	SettingsDialog autoSaveChangedSettingsOnClose:(holder value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	805	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	806	result := true.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	807	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	808
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	809	result isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	810	^ false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	811	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	812	result ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	813	self saveSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	814	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	815	"/ reload current settings to show the right thing when re-entering.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	816	self readSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	817	]
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	818	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	819	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	820
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	821	"Modified: / 20-09-2006 / 23:56:25 / cg"
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	822	"Modified (comment): / 10-04-2018 / 16:55:30 / sr"
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	823	"Modified: / 09-06-2018 / 11:03:26 / Claus Gittinger"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	824	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	825
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	826	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	827	self basicSaveSettings.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	828	didModifySettings := true.
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	829	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	830	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	831
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	832	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	833	self hasUnsavedChanges ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	834	self saveSettings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	835	self modifiedChannel value:false
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	836	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	837	!
c72e35116b13 instable state penk parents: 5040 diff changeset	838
c72e35116b13 instable state penk parents: 5040 diff changeset	839	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	840	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	841	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	842
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	843	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	844
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	845	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	846	"if redefined to return a non-nil list of preference-key aspects,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	847	you can then use the basicSaveSettings/basicReadSettings/hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	848	as inherited from here.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	849	Otherwise, if you do not want the aspect-list-keys to be read/saved in the settings,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	850	you MUST redefine all of the 3 above mentioned methods."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	851
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	852	^ nil
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	853	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	854
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	855	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	856
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	857	modifiedChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	858	modifiedChannel := false asValue.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	859	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	860	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	861	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	862
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	863	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	864
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	865	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	866	"this code-sharing helper compares a bunch of aspect value against some object.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	867	The object is typically the current userPreferences object, or a flag-holder, such
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	868	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	869	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	870	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	871	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	872	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	873	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	874	^ false
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	875	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	876	local aspects must be named like corresponding aspect methods in the flag-provider.
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	877	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	878
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	879	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	880	(self myAspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	881	"/ to debug missing apply-enablements
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	882	"/ Smalltalk enableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	883	"/ Smalltalk disableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	884
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	885	self debuggingCodeFor:#cg is:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	886	Transcript showCR:'settings aspect is different: ',eachAspectSymbol.
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	887	Transcript showCR:' here: ',((self myAspectFor:eachAspectSymbol) value) printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	888	Transcript showCR:' there: ',((anAspectProvider perform:eachAspectSymbol) value) printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	889	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	890	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	891	].
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	892	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	893	^ false
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	894
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	895	"Modified: / 23-03-2011 / 15:45:11 / cg"
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	896	"Modified (format): / 21-12-2018 / 14:57:12 / Claus Gittinger"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	897	!
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	898
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	899	myAspectFor:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	900	"/ used to be (self perform:aspectSymbol),
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	901	"/ but I am tired of having to add all those aspect getters.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	902
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	903	^ self
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	904	perform:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	905	ifNotUnderstood:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	906	\|holder\|
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	907
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	908	self createBuilder.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	909	(holder := builder bindingAt:aspectSymbol) isNil ifTrue:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	910	builder aspectAt:aspectSymbol put:(holder := nil asValue).
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	911	holder onChangeSend:#updateModifiedChannel to:self.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	912	].
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	913	holder
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	914	].
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	915
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	916	"Created: / 04-06-2018 / 13:45:09 / Claus Gittinger"
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	917	!
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	918
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	919	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	920	"this code-sharing helper reads a bunch of aspect values from some object.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	921	The object is typically the current userPreferences object, or a flag-holder, such
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	922	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	923	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	924	self aspect1 value:(someone aspect1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	925	self aspect2 value:(someone aspect2).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	926	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	927	self aspectN value:(someone aspectN).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	928	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	929	local aspects must be named like corresponding aspect methods in the flag-provider.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	930	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	931
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	932	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	933	(self myAspectFor:eachAspectSymbol)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	934	value:(anAspectProvider perform:eachAspectSymbol)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	935	withoutNotifying:self
9738 7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	936	].
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	937
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	938	"Modified: / 08-02-2011 / 09:11:03 / cg"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	939	"Modified: / 04-06-2018 / 13:45:55 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	940	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	941
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	942	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	943	"this code-sharing helper compares a bunch of aspect value against some object,
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	944	and returns a list of changed aspect names (for info only, in a confirmer).
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	945	The object is typically the current userPreferences object, or a flag-holder, such
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	946	as ParserFlags.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	947	Using this, and a list of aspect selectors replaces code like:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	948	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	949	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	950	...
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	951	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	952	^ false
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	953	Prerequisite:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	954	local aspects must be named like corresponding aspect methods in the flag-provider.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	955	"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	956
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	957	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	958	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	959	]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	960
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	961	"Created: / 31-05-2018 / 12:53:05 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	962	"Modified: / 02-06-2018 / 05:14:30 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	963	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	964
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	965	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider into:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	966	"this code-sharing helper compares a bunch of aspect value against some object,
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	967	and returns a list of changed aspect names through aBlock(for info only, in a confirmer)"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	968
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	969	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	970	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	971	ifTrue:[ aBlock value:eachAspectSymbol ]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	972	]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	973
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	974	"Created: / 31-05-2018 / 12:57:19 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	975	"Modified: / 02-06-2018 / 05:14:33 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	976	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	977
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	978	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	979	"this code-sharing helper writes a bunch of aspect values into some object.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	980	The object is typically the current userPreferences object, or a flag-holder, such
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	981	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	982	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	983	someone aspect1:(self aspect1 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	984	someone aspect2:(self aspect2 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	985	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	986	someone aspectN:(self aspectN value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	987	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	988	local aspects must be named like corresponding aspect methods in the flag-provider.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	989	"
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	990
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	991	aListOfAspects do:[:eachAspectSymbol \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	992	anAspectProvider
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	993	perform:eachAspectSymbol asMutator
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	994	with:(self myAspectFor:eachAspectSymbol) value
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	995	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	996
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	997	"Modified: / 24-08-2010 / 16:52:42 / sr"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	998	"Modified: / 04-06-2018 / 13:45:48 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	999	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1000
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1001	!AbstractSettingsApplication methodsFor:'hooks'!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1002
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1003	preOpenWith: anUIBuilder
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1004	self readSettings
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1005
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1006	"Created: / 14-10-2014 / 09:16:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1007	! !
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1008
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1009	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1010
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1011	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1012	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1013
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1014	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1015	resources := self class classResources.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1016	currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1017	settingsString := (UISpecification from:(self class windowSpec)) window label.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	1018	didModifySettings := false.
15483 7142c70e4a6b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15388 diff changeset	1019
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	1020	"/ self readSettings.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1021
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1022	"Modified: / 08-02-2017 / 00:29:53 / cg"
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1023	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1024
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1025	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1026	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1027	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1028
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1029	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1030
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	1031	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1032	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1033	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1034
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1035	!AbstractSettingsApplication methodsFor:'opening'!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1036
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1037	open
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1038	"open a standard interface.
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1039	Sorry, but for visualworks compatibility, the builder is returned"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1040
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1041	^ self openInterfaceModal: #windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1042
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1043	"Created: / 14-10-2014 / 09:15:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1044	! !
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1045
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1046	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	1047
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	1048	askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1049	"shall we ask if changed settings should be saved, when closing?"
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1050
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1051	^ SettingsDialog autoSaveChangedSettingsOnClose not
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	1052	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	1053
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1054	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1055	"utility to read aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1056	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1057	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1058
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1059	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1060
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1061	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1062	self readAspects: aspects from:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1063	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1064	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1065	^ self subclassResponsibility:'either basicReadSettings or aspects must be redefined'
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1066	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1067
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1068	basicSaveSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1069	"utility to save aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1070	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1071	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1072
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1073	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1074
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1075	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1076	self writeAspects:aspects to:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1077	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1078	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1079	^ self subclassResponsibility
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1080	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1081
17792 c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1082	editorHelpRelativeWikiURL
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1083	"the relative URL of the dialog-description in the Wiki"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1084
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1085	^ nil
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1086
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1087	"Created: / 25-11-2017 / 23:43:05 / cg"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1088	!
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1089
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1090	hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1091	"utility to check for changed aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1092	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1093	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1094
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1095	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1096
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1097	(aspects := self aspects) notNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1098	^ (self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1099	hasChangedAspectIn:(self aspects)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1100	asComparedTo:currentUserPrefs)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1101	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1102	^ self subclassResponsibility
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1103	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1104
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1105	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1106	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1107
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1108	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1109	filename isNil ifTrue:[
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1110	self warn:('Sorry - no Help available here.').
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1111	^ self.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1112	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1113	self withWaitCursorDo:[
18075 0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1114	Warning handle:[:ex \|
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1115	Dialog warn:ex description
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1116	] do:[
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1117	HTMLDocumentView openFullOnHelpFile:filename
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1118	].
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1119	].
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1120
a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1121	"Modified: / 09-08-2018 / 15:29:59 / Claus Gittinger"
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1122	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1123
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1124	helpFilename
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1125	"subclasses must return either the relative path of a helpFile
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1126	in the doc/online/<language>/help directory,
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1127	or an absolute path (typically in its packageDirectory).
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1128	If an absolute filename is returned, the %(lang) sequence is replaced
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1129	by the current user's language.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1130	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1131
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1132	Smalltalk isStandAloneApp ifFalse:[
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1133	self subclassResponsibility.
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1134	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1135	^ nil.
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1136	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1137
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1138	whichUnsavedChangesInto:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1139	"utility to return a list of changed aspects through aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1140	(for info only, in a confirmer)"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1141
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1142	\|aspects\|
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1143
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1144	(aspects := self aspects) notNil ifTrue:[
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1145	self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1146	whichChangedAspectIn:(self aspects)
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1147	asComparedTo:currentUserPrefs
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1148	into:aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1149	^ self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1150	].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1151	^ self subclassResponsibility
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1152
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1153	"Created: / 31-05-2018 / 12:56:53 / Claus Gittinger"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1154	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1155
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1156	widgetsWithChangedSettingsDo:aBlock
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1157	"/ to be redefined in subclasses...
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1158
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1159	\|mySpec\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1160
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1161	self hasValuesDifferentFromDefault ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1162	mySpec := self class windowSpec decodeAsLiteralArray.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1163	(self aspects ? #()) do:[:aspect \|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1164	\|subSpec widget\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1165
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1166	(UserPreferences default perform:aspect) ~= (currentUserPrefs perform:aspect) ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1167	subSpec := mySpec findSpecForWhich:[:spec \| spec model = aspect].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1168	widget := self window
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1169	allSubViewsDetect:[:w \| w name = subSpec name]
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1170	ifNone:nil.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1171	aBlock value:widget.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1172	].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1173	].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1174	].
4226 44e2f83cc526 initial checkin penk parents: diff changeset	1175	! !
44e2f83cc526 initial checkin penk parents: diff changeset	1176
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1177	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1178
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1179	hasValuesDifferentFromDefault
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1180	\|savedCurrent\|
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1181
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1182	self hasUnsavedChanges ifTrue:[
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1183	^ true
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1184	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1185
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1186	savedCurrent := currentUserPrefs.
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1187	currentUserPrefs := UserPreferences default.
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1188	^ [self hasUnsavedChanges] ensure:[currentUserPrefs := savedCurrent].
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1189
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1190	"Modified (format): / 12-02-2019 / 20:47:41 / Stefan Vogel"
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1191	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1192
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1193	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1194	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1195
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1196	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1197	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1198
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1199	itemPathName
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	1200	settingsDialog isNil ifTrue:[^ ''].
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	1201	^ settingsDialog getNameOfApplication:self.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1202	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1203
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1204	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	1205	"returns a set of keywords to match in the quickSearch.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1206	Notice that both the word and its current language translation is matched against
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1207	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1208
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1209	^ self class quickSearchStrings
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1210	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1211
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1212	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'documentation'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1213
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1214	documentation
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1215	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1216	this little app provides an alternative view on all settings keys.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1217	This offers a name-list of settings values, and thus allows for
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1218	settings to be changed for which no 'real' UI has been programmed.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1219	(i.e. a fallback for missing things)
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1220	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1221	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1222
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1223	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'image specs'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1224
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1225	defaultIcon
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1226	<resource: #programImage>
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1227
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1228	^ super defaultIcon
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1229	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1230
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1231	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'interface specs'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1232
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1233	windowSpec
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1234	"This resource specification was automatically generated
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1235	by the UIPainter of ST/X."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1236
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1237	"Do not manually edit this!! If it is corrupted,
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1238	the UIPainter may not be able to read the specification."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1239
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	UIPainter new openOnClass:AbstractSettingsApplication::AllSettingsAppl andSelector:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1242	AbstractSettingsApplication::AllSettingsAppl new openInterface:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1243	AbstractSettingsApplication::AllSettingsAppl open
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1244	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1245
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1246	<resource: #canvas>
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1247
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1248	^
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1249	#(FullSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1250	name: windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1251	window:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1252	(WindowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1253	label: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1254	name: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1255	min: (Point 10 10)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1256	bounds: (Rectangle 0 0 659 242)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1257	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1258	component:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1259	(SpecCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1260	collection: (
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1261	(DataSetSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1262	name: 'Table1'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1263	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1264	model: selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1265	hasHorizontalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1266	hasVerticalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1267	dataList: settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1268	columns:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1269	(OrderedCollection
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: 'Name'
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: key
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	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1279	label: 'Value'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1280	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1281	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1282	model: value
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1283	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1284	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1285	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1286	)
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1287	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1288
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1289	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1290	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1291	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1292
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1293	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'actions'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1294
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1295	basicReadSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1296	super basicReadSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1297
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1298	usedCompilerForBuild value isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1299	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1300	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1301	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1302
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1303	"Modified: / 26-07-2012 / 23:16:52 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1304	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1305
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1306	basicSaveSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1307	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1308
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1309	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1310	buildDir notEmptyOrNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1311	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1312	buildDir isDirectory ifFalse:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1313	(Dialog confirm:(resources
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1314	stringWithCRs:'Build directory %1 does not exist.\\Create?'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1315	with:buildDir pathName allBold))
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1316	ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1317	buildDir makeDirectory.
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	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1321
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1322	super basicSaveSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1323
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1324	"Modified: / 22-01-2012 / 10:50:09 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1325	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1326
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1327	cleanupBuildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1328	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1329
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1330	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1331	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1332	^ self.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1333	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1334	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1335	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1336	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1337	buildDir makeDirectory.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1338	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1339	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1340
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1341	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'aspects'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1342
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1343	aspects
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1344	^ #(
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1345	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1346	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1347	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1348	)
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1349	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1350
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1351	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1352	buildDirectory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1353	buildDirectory := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1354	buildDirectory onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1355	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1356	^ buildDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1357	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1358
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1359	fetchSettingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1360	\|list\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1361
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1362	list := List new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1363	UserPreferences selectorsAndMethodsDo:[:sel :mthd\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1364	\|setter getter getterMethod\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1365
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1366	sel numArgs == 1 ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1367	(sel endsWith:$:) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1368	setter := sel.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1369	getter := sel copyButLast asSymbolIfInterned.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1370	getter notNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1371	(UserPreferences implements:getter) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1372	getterMethod := UserPreferences compiledMethodAt:getter.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1373	getterMethod isObsolete ifFalse:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1374	list add:(sel -> (UserPreferences current perform:getter)).
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1375	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1376	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1377	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1378	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1379	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1380	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1381	list sortBySelector:#key.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1382	^ list
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1383	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1384
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1385	hasSourceCodeManager
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1386	^ SourceCodeManager notNil
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1387	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1388
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1389	listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1390	^ Tools::ProjectBuilder listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1391
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1392	"Created: / 21-01-2012 / 14:05:43 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1393	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1394
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1395	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1396	localBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1397	localBuild := UserPreferences current localBuild asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1398	localBuild onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1399	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1400	^ localBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1401	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1402
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1403	selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1404	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1405
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1406	selectedSettingHolder isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1407	selectedSettingHolder := ValueHolder new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1408	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1409	^ selectedSettingHolder.
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	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1414
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1415	settingsList isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1416	settingsList := self fetchSettingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1417
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1418	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1419	^ settingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1420	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1421
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1422	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1423	usedCompilerForBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1424	usedCompilerForBuild := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1425	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1426	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1427	^ usedCompilerForBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1428
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1429	"Created: / 22-01-2012 / 10:59:30 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1430	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1431
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1432	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'help'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1433
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1434	helpFilename
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1435	^ 'Launcher/buildSetup.html'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1436	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1437
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1438	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'initialization'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1439
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1440	postBuildDirectoryField:aField
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1441	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1442	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1443	with:(Filename currentDirectory construct:'stx_build') pathName)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1444	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1445
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1446	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'queries'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1447
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1448	hasUnsavedChanges
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1449	(super hasUnsavedChanges) ifTrue:[^ true].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1450	^ false
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1451
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1452	"Modified: / 22-01-2012 / 10:50:15 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1453	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1454
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1455	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1456
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1457	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1458	"
17425 8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1459	I manage packages which are to be loaded automatically
8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1460	whenever st/x is started
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1461	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1462	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1463
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1464	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'help specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1465
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1466	helpSpec
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1467	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1468	by the UIHelpTool of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1469
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1470	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1471	the UIHelpTool may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1472
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1473	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1474	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
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	<resource: #help>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1478
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1479	^ super helpSpec addPairsFrom:#(
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1480	#autoloadedPackages
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1481	'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	1482
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1483	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1484	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1485
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1486	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'image specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1487
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1488	defaultIcon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1489	<resource: #programImage>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1490
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1491	^ ToolbarIconLibrary packageOpen24x24Icon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1492	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1493
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1494	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'interface specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1495
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1496	windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1497	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1498	by the UIPainter of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1499
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1500	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1501	the UIPainter may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1502
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1503	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1504	UIPainter new openOnClass:AbstractSettingsApplication::AutoloadedPackagesSettingsAppl andSelector:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1505	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl new openInterface:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1506	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl open
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1507	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1508
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1509	<resource: #canvas>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1510
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1511	^
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1512	#(FullSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1513	name: windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1514	window:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1515	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1516	label: 'Autoloaded Packages Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1517	name: 'Autoloaded Packages Settings'
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1518	min: (Point 10 10)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1519	bounds: (Rectangle 0 0 705 722)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1520	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1521	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1522	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1523	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1524	(FramedBoxSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1525	label: 'Packages Automatically Loaded at Startup'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1526	name: 'FramedBox1'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1527	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1528	labelPosition: topLeft
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1529	translateLabel: true
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1530	activeHelpKey: autoloadedPackages
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1531	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1532	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1533	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1534	(SubCanvasSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1535	name: 'SubCanvas1'
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1536	layout: (LayoutFrame 0 0 8 0 0 1 0 1)
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1537	hasHorizontalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1538	hasVerticalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1539	majorKey: MultipleItemSelectionWidget
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1540	createNewApplication: true
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1541	createNewBuilder: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1542	postBuildCallback: postCreatePackageChooserWidget:
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	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1548	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1549
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1550	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1551	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1552	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1553
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1554	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'actions'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1555
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1556	basicReadSettings
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1557	packageChooser notNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1558	packageChooser listOfSelectedItems value:(UserPreferences current autoloadedPackages).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1559	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1560	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1561
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1562	basicSaveSettings
16943 3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1563	UserPreferences current
3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1564	autoloadedPackages:(packageChooser listOfSelectedItems value asArray collect:[:each \| each asString string]).
16200 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	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'aspects'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1568
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1569	aspects
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1570	^ #(
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1571	autoloadedPackages
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1572	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1573	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1574
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1575	possibleItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1576	^ 'Available Packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1577	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1578
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1579	readPackageList
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1580	"self basicNew readPackageList"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1581
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1582	\|packageDirPath list setOfPackages setOfAlreadySelectedPckages\|
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1583
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1584	packageDirPath := Smalltalk getSystemFileName:'packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1585	packageDirPath isNil ifTrue:[
16257 7a7ff15e751b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16219 diff changeset	1586	^ #()
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1587	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1588
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1589	list := OrderedCollection new.
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1590	setOfPackages := Set new.
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1591	setOfAlreadySelectedPckages := UserPreferences current autoloadedPackages asSet.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1592
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1593	packageDirPath asFilename directoryContentsAsFilenames sort do:[:fn \|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1594	\|item base nm path parentPath parent isLibrary isApplication isAlreadyLoaded
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1595	defClass target packageID\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1596
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1597	((fn suffix = 'mcz')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1598	or:[ fn isDirectory
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1599	or:[ (fn baseName startsWith:'.')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1600	or:[ (fn baseName = 'README') ]]
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	base := fn withoutSuffix baseName.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1603	(base startsWith:'lib') ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1604	nm := (base copyFrom:4).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1605	fn suffix notEmptyOrNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1606	isLibrary := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1607	isApplication := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1608	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1609	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1610	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1611	]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1612	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1613	nm := base.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1614	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1615	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1616	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1617
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1618	path := nm asCollectionOfSubstringsSeparatedBy:$_.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1619	packageID := (path size > 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1620	ifTrue:[ path first , ':' , ((path copyFrom:2) asStringWith:$/) ]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1621	ifFalse:[ path first ].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1622
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1623	(setOfPackages includes:packageID) ifFalse:[
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1624	(setOfAlreadySelectedPckages includes:packageID) ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1625	setOfPackages add:packageID.
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1626	isAlreadyLoaded :=
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1627	(defClass := ProjectDefinition definitionClassForPackage:packageID) notNil
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1628	and:[ defClass isLoaded
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1629	and:[ defClass isFullyLoaded ]].
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1630
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1631	isAlreadyLoaded ifTrue:[
16411 dbd6771f5129 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16389 diff changeset	1632	list add:(packageID,(' (currently loaded)' withColor:Color grey))
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1633	] ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1634	list add:packageID
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1635	]
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1636	].
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1637	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1638	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1639	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1640	list sort.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1641	^ list
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1642	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1643
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1644	selectedItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1645	^ 'Packages Loaded at Startup'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1646	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1647
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1648	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'help'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1649
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1650	helpFilename
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1651	^ 'Launcher/autoloadedPackagesSettings.html'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1652	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1653
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1654	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'initialization'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1655
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1656	postCreatePackageChooserWidget:aPackageChooser
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1657	\|availPackages selectedPackages setOfSelectedPackages\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1658
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1659	availPackages := self readPackageList.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1660	selectedPackages := UserPreferences current autoloadedPackages.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1661	setOfSelectedPackages := selectedPackages asSet.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1662
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1663	availPackages := availPackages reject:[:el \| setOfSelectedPackages includes:el].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1664
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1665	packageChooser := aPackageChooser application.
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1666	packageChooser addAllButtonVisibleHolder value:false.
3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1667	packageChooser removeAllButtonVisibleHolder value:false.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1668	packageChooser listOfPossibleItems value:availPackages asOrderedCollection.
58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1669	packageChooser listOfSelectedItems value:selectedPackages asOrderedCollection.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1670	packageChooser possibleItemsLabelHolder value:(resources string:self possibleItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1671	packageChooser selectedItemsLabelHolder value:(resources string:self selectedItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1672
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1673	packageChooser listOfSelectedItems onChangeSend:#updateModifiedChannel to:self.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1674	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1675
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1676	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'queries'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1677
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1678	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1679	packageChooser notNil ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1680	packageChooser listOfSelectedItems value asArray = UserPreferences current autoloadedPackages asArray ifFalse:[^true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1681	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1682	^ false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1683	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1684
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1685	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1686
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1687	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1688	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1689	I manage parameters for package building (for deployment)
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1690	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1691	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1692
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1693	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1694
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1695	helpSpec
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1696	"This resource specification was automatically generated
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1697	by the UIHelpTool of ST/X."
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	"Do not manually edit this!! If it is corrupted,
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1700	the UIHelpTool may not be able to read the specification."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1701
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1702	"
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1703	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1704	"
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1705
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1706	<resource: #help>
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1707
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1708	^ super helpSpec addPairsFrom:#(
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	#buildDirectory
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1711	'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	1712
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1713	#localBuild
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1714	'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	1715
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1716
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1717	)
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1718
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1719	"Modified: / 28-02-2019 / 12:52:31 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1720	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1721
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1722	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1725	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1726
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	1727	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1728
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1729	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 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
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1732	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1735	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1736	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1737
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1738	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1739	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1740
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1741	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1742	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1743	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1744	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1745	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1746
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1747	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1748
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1749	^
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1750	#(FullSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1751	name: windowSpec
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1752	uuid: '71c633fe-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1753	window:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1754	(WindowSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1755	label: 'Build Settings'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1756	name: 'Build Settings'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1757	uuid: '71c63796-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1758	min: (Point 10 10)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1759	bounds: (Rectangle 0 0 659 242)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1760	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1761	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1762	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1763	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1764	(VerticalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1765	name: 'VerticalPanel3'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1766	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1767	uuid: '71c63ad4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1768	horizontalLayout: fit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1769	verticalLayout: top
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1770	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1771	verticalSpace: 4
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1772	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1773	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1774	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1775	(FramedBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1776	label: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1777	name: 'FramedBox1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1778	uuid: '71c63dae-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1779	labelPosition: topLeft
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1780	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1781	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1782	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1783	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1784	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1785	name: 'LocalBuild'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1786	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	1787	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1788	uuid: '71c63f7a-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1789	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1790	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1791	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1792	(CheckBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1793	label: 'Local Build (Do not use Repository)'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1794	name: 'CheckBox4'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1795	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1796	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1797	uuid: '71c640ce-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1798	enableChannel: hasSourceCodeManager
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1799	model: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1800	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1801	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1802	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1803
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1804	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1805	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1806	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1807	name: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1808	layout: (LayoutFrame 0 0 40 0 0 1 70 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1809	uuid: '71c64326-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1810	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1811	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1812	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1813	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1814	label: 'Build Directory:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1815	name: 'BuildDirDirLabel'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1816	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	1817	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1818	uuid: '71c64452-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1819	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1820	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1821	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1822	(FilenameInputFieldSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1823	name: 'FilenameEntryField1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1824	layout: (LayoutFrame 202 0 0 0 0 1 22 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1825	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1826	uuid: '71c64664-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1827	enableChannel: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1828	model: buildDirectory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1829	acceptOnReturn: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1830	acceptOnTab: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1831	acceptOnLostFocus: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1832	acceptOnPointerLeave: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1833	postBuildCallback: postBuildDirectoryField:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1834	viewClassName: FilenameWidgetWithHistory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1835	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1836	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1837
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1838	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1839	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1840	(HorizontalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1841	name: 'ActionsHorizontalPanel'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1842	layout: (LayoutFrame 62 0.25 71 0 0 1 100 0)
b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1843	uuid: '71c649ca-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1844	horizontalLayout: fitSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1845	verticalLayout: center
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1846	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1847	verticalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1848	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1849	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1850	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1851	(ActionButtonSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1852	label: 'Cleanup Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1853	name: 'CleanupBuildDirectoryButton'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1854	uuid: '71c64bb4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1855	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1856	tabable: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1857	model: cleanupBuildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1858	extent: (Point 396 26)
16312 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	)
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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1863	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1864	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1865
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1866	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1867	extent: (Point 659 136)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1868	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1869	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1870	name: 'Box1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1871	uuid: '71c64e70-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1872	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1873	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1874	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1875	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1876	label: 'Compiler for Build:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1877	name: 'Label1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1878	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1879	uuid: '71c64f92-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1880	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1881	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1882	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1883	(ComboListSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1884	name: 'ComboList1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1885	layout: (LayoutFrame 150 0 0 0 300 0 20 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1886	uuid: '71c6510e-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1887	model: usedCompilerForBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1888	comboList: listOfPossibleCompilers
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1889	useIndex: false
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	extent: (Point 659 25)
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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1897
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1898	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1899	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1900	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1901
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1902	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1903	)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1904	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1905
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1906	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1907
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1908	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1909	super basicReadSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1910
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1911	usedCompilerForBuild value isNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1912	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1913	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
11682 47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1914	].
47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1915
47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1916	"Modified: / 26-07-2012 / 23:16:52 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1917	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1918
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1919	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1920	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1921
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1922	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1923	buildDir notEmptyOrNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1924	buildDir := buildDir asFilename.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1925	buildDir isDirectory ifFalse:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1926	(Dialog confirm:(resources
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1927	stringWithCRs:'Build directory %1 does not exist.\\Create?'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1928	with:buildDir pathName allBold))
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1929	ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1930	buildDir makeDirectory.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1931	]
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1932	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1933	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1934
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1935	super basicSaveSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1936
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1937	"Modified: / 22-01-2012 / 10:50:09 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1938	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1939
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1940	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1941	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1942
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1943	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1944	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1945	^ self.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1946	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1947	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1948	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1949	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1950	buildDir makeDirectory.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1951	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1952	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1953
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1954	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1955
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1956	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1957	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1958	buildDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1959	localBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1960	usedCompilerForBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1961	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1962	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1963
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1964	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1965	buildDirectory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1966	buildDirectory := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1967	buildDirectory onChangeSend:#updateModifiedChannel to:self
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1968	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1969	^ buildDirectory.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1970	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1971
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1972	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1973	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1974	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1975
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1976	listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1977	^ Tools::ProjectBuilder listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1978
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1979	"Created: / 21-01-2012 / 14:05:43 / cg"
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1980	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1981
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1982	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1983	localBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1984	localBuild := UserPreferences current localBuild asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1985	localBuild onChangeSend:#updateModifiedChannel to:self
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1986	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1987	^ localBuild.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1988	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1989
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1990	usedCompilerForBuild
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1991	usedCompilerForBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1992	usedCompilerForBuild := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1993	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1994	].
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1995	^ usedCompilerForBuild.
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1996
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1997	"Created: / 22-01-2012 / 10:59:30 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1998	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1999
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2000	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2001
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2002	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2003	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2004	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2005
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2006	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2007
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2008	postBuildDirectoryField:aField
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2009	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2010	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2011	with:(Filename currentDirectory construct:'stx_build') pathName)
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2012	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2013
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2014	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2015
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2016	hasUnsavedChanges
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	2017	(super hasUnsavedChanges) ifTrue:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2018	^ false
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2019
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2020	"Modified: / 22-01-2012 / 10:50:15 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2021	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2022
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2023	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2033	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2034
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2035	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2036
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2037	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2038	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2039	I manage settings for bytecode compilation.
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2040	Mostly controlling accepted syntax, warnings and errors.
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2041	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2042	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2043
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2044	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'help specs'!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2045
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	2046	helpSpec
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2047	"This resource specification was automatically generated
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2048	by the UIHelpTool of ST/X."
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	"Do not manually edit this!! If it is corrupted,
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2051	the UIHelpTool may not be able to read the specification."
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2052
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2053	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2054	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2055	"
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2056
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2057	<resource: #help>
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2058
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2059	^ super helpSpec addPairsFrom:#(
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2060
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2061	#allowAssignmentToPoolVariable
17057 b18c8b16129d #DOCUMENTATION by mawalch mawalch parents: 17006 diff changeset	2062	'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	2063
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2064	#allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2065	'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	2066
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2067	#allowDolphinExtensions
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2068	'Allow Dolphin-Smalltalk specific syntax extensions'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2069
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2070	#allowEmptyStatements
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2071	'Allow empty statements'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2072
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2073	#allowExtendedBinarySelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2074	'Allow extended binary selectors (more than 2 characters, including "^", "\|" and "#")'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2075
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2076	#allowFixedPointLiterals
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2077	'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	2078
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2079	#allowOldStyleAssignment
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2080	'Allow "_" as assignment. May be required to filein Squeak code'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2081
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2082	#allowParagraphInIdentifier
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2083	'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	2084
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2085	#allowQualifiedNames
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2086	'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	2087
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2088	#allowReservedWordsAsSelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2089	'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	2090
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2091	#allowSqueakExtensions
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2092	'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	2093
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2094	#allowUnderscoreInIdentifier
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2095	'Allow underscore characters in identifiers. Not compatible with Squeak.'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2096
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2097	#allowVisualAgeESSymbolLiterals
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2098	'Allow VisualAge ESsymbol literals (##xxx).\Will generate regular symbols when compiled'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2099
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2100	#allowVisualAgePrimitives
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2101	'Allow VisualAge primitive specification syntax'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2102
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2103	#arraysAreImmutable
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2104	'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	2105
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2106	#fullDebugInfo
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2107	'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	2108
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2109	#reenableSuppressedWarnings
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2110	'Reenable warnings which were previously suppressed for individual methods'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2111
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2112	#stringsAreImmutable
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2113	'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	2114
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2115	#warnAboutBadComments
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2116	'Warn if a comment is empty or consists of whitespace only'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2117
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2118	#warnAboutMissingMethodComment
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2119	'Warn if a method has no comment'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2120
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2121	#warnAboutNonLowercaseLocalVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2122	'By convention, local variables should start with a lowercase character'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2123
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2124	#warnAboutPossiblyUnimplementedSelectors
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2125	'Warn about a possibly unimplemented selector in a message send'
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2126
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2127	#warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2128	'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	2129
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2130	#warnAboutReferenceToPrivateClass
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2131	'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	2132
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2133	#warnAboutShortLocalVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2134	'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	2135
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2136	#warnAboutWrongVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2137	'Checks for bad articles in variable names (eg. "anUser")'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2138
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2139	#warnCommonMistakes
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2140	'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	2141
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2142	#warnDollarInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2143	'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	2144
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2145	#warnInconsistentReturnValues
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2146	'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	2147
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2148	#warnOldStyleAssignment
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2149	'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	2150
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2151	#warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2152	'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	2153
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2154	#warnPlausibilityChecks
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2155	'Perform plausibility checks and warn about any such possible problem'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2156
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2157	#warnPossibleIncompatibilities
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2158	'Warn about other possible incompatibilities'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2159
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2160	#warnSTXSpecials
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2161	'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	2162
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2163	#warnUnderscoreInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2164	'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	2165
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2166	#warnUnusedVars
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2167	'Warn if a local variable is never used'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2168
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2169	#warnings
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2170	'Turn off all warnings'
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2171
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2172	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2173
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2174	"Modified: / 23-04-2019 / 23:23:03 / Claus Gittinger"
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2175	! !
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2176
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2177	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2178
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2179	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2180	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2181
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2182	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2183
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2184	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2185	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2186
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2187	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2188	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2189	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2190
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2191	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2192	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2193
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2194	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2195	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2196	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2197	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2198	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2199
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2200	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2201
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2202	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2203	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon1'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2204	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2205	@@@@@@@@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	2206	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	2207	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2208
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2209	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2210	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2211	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2212
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2213	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2214	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2215
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2216	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2217	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2218	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2219	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2220	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2221
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2222	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2223
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2224	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2225	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon2'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2226	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2227	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP@CL3L3L3L3L0@RHP@@@3L3L3L0@0@RY!!@AHCL3L3LBD@E&Y&DVPCL3
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2228	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	2229	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	2230	@@@@@@@@@@@@@@@@@@@@@@@@') 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	2231	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2232
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2233	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2234	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2235	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2236
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2237	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2238	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2239
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2240	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2241	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2242	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2243	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2244	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2245
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2246	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2247
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2248	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2249	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon5'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2250	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2251	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2252	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	2253	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2254	@@@@@@@@@@@@@@@@@@@@@@@@') 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	2255	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2256
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2257	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2259	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2260	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2261	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2262
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2266	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2267	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2268	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2269	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2270	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2272	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2273
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2274	^
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2275	#(FullSpec
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2276	name: windowSpec
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2277	uuid: 'e0a1dd6e-660d-11e9-bfcd-b8f6b1108e05'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2278	window:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2279	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2280	label: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2281	name: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2282	flags: 1
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2283	uuid: '9c92dc14-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2284	min: (Point 10 10)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2285	bounds: (Rectangle 0 0 664 712)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2286	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2287	component:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2288	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2289	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2290	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2291	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2292	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	2293	uuid: '9c92e3bc-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2294	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2295	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2296	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2297	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2298	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2299	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2300	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2301	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2302	label: 'Just in Time Compilation to Machine Code'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2303	name: 'JustInTimeCompilation'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2304	uuid: '9c92e8da-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2305	model: justInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2306	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2307	extent: (Point 664 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2308	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2309	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2310	name: 'Separator3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2311	uuid: '9c92ed9e-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2312	extent: (Point 664 3)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2313	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2314	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2315	name: 'Box1'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2316	uuid: '9c92f0aa-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2317	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2318	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2319	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2320	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2321	name: 'VerticalPanel1_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2322	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2323	uuid: '9c92f370-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2324	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2325	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2326	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2327	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2328	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2329	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2330	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2331	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2332	label: 'Allow Underscore in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2333	name: 'AllowUnderscoreInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2334	activeHelpKey: allowUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2335	uuid: '9c92f618-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2336	model: allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2337	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2338	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2339	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2340	(CheckBoxSpec
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2341	label: 'Allow Dollar in Identifiers ($)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2342	name: 'AllowDollarInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2343	activeHelpKey: allowDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2344	uuid: '9c92f8e8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2345	model: allowDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2346	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2347	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2348	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2349	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2350	label: 'Allow VW3 QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2351	name: 'AllowVW3QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2352	activeHelpKey: allowQualifiedNames
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2353	uuid: '9c92fb40-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2354	model: allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2355	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2356	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2357	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2358	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2359	label: 'Allow OldStyle Assignment (_)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2360	name: 'AllowOldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2361	activeHelpKey: allowOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2362	uuid: '9c92fd7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2363	model: allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2364	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2365	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2366	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2367	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2368	label: 'Allow Reserved Words as Selector (self)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2369	name: 'AllowReservedWordsAsSelector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2370	activeHelpKey: allowReservedWordsAsSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2371	uuid: '9c92ffaa-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2372	model: allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2373	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2374	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2375	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2376	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2377	label: 'Allow Extended Binary Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2378	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2379	activeHelpKey: allowExtendedBinarySelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2380	uuid: '9c9301e4-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2381	model: allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2382	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2383	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2384	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2385	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2386	label: 'Allow Assignment to Pool Variable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2387	name: 'CheckBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2388	activeHelpKey: allowAssignmentToPoolVariable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2389	uuid: '9c930450-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2390	model: allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2391	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2392	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2393	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2394	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2395
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2396	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2397	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2398	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2399	name: 'VerticalPanel1_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2400	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2401	uuid: '9c9306ee-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2402	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2403	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2404	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2405	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2406	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2407	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2408	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2409	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2410	label: 'Allow Squeak Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2411	name: 'AllowSqueakExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2412	activeHelpKey: allowSqueakExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2413	uuid: '9c93095a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2414	model: allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2415	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2416	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2417	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2418	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2419	label: 'Allow Dolphin Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2420	name: 'AllowDolphinExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2421	activeHelpKey: allowDolphinExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2422	uuid: '9c930bb2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2423	model: allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2424	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2425	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2426	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2427	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2428	label: 'Allow VisualAge ES-Symbols'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2429	name: 'AllowVisualAgeESSymbolLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2430	activeHelpKey: allowVisualAgeESSymbolLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2431	uuid: '9c930dec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2432	model: allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2433	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2434	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2435	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2436	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2437	label: 'Allow VisualAge Primitives'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2438	name: 'CheckBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2439	activeHelpKey: allowVisualAgePrimitives
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2440	uuid: '9c931026-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2441	model: allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2442	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2443	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2444	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2445	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2446	label: 'Allow FixedPoint-Number Literals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2447	name: 'AllowFixedPointLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2448	activeHelpKey: allowFixedPointLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2449	uuid: '9c931242-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2450	model: allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2451	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2452	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2453	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2454	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2455	label: 'Allow Empty Statements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2456	name: 'AllowEmptyStatements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2457	activeHelpKey: allowEmptyStatements
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2458	uuid: '9c93147c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2459	model: allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2460	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2461	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2462	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2463	(CheckBoxSpec
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	2464	label: 'Allow Paragraph in Identifiers (§)'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2465	name: 'CheckBox10'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2466	activeHelpKey: allowParagraphInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2467	uuid: '9c9316ac-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2468	model: allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2469	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2470	extent: (Point 665 22)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2471	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2472	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2473
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2474	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2475	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2476	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2477
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2478	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2479	extent: (Point 664 157)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2480	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2481	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2482	name: 'Separator4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2483	uuid: '9c931954-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2484	extent: (Point 664 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2485	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2486	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2487	label: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2488	name: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2489	activeHelpKey: warnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2490	uuid: '9c931b7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2491	model: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2492	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2493	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2494	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2495	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2496	name: 'Box2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2497	uuid: '9c931e36-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2498	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2499	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2500	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2501	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2502	name: 'VerticalPanel2_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2503	layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2504	uuid: '9c932052-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2505	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2506	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2507	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2508	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2509	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2510	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2511	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2512	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2513	label: 'ST/X Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2514	name: 'STXExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2515	activeHelpKey: warnSTXSpecials
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2516	uuid: '9c9322be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2517	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2518	model: warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2519	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2520	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2521	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2522	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2523	label: 'Reference to Private Class'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2524	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2525	activeHelpKey: warnAboutReferenceToPrivateClass
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2526	uuid: '9c932534-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2527	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2528	model: warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2529	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2530	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2531	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2532	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2533	label: 'Underscores in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2534	name: 'UnderscoresInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2535	activeHelpKey: warnUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2536	uuid: '9c932778-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2537	enableChannel: enableUnderscore
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2538	model: warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2539	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2540	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2541	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2542	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2543	label: 'Dollars in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2544	name: 'DollarsInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2545	activeHelpKey: warnDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2546	uuid: '9c9329b2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2547	enableChannel: enableDollar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2548	model: warnDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2549	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2550	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2551	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2552	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2553	label: 'OldStyle Assignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2554	name: 'OldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2555	activeHelpKey: warnOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2556	uuid: '9c932bec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2557	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2558	model: warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2559	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2560	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2561	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2562	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2563	label: 'Possible Incompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2564	name: 'PossibleIncompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2565	activeHelpKey: warnPossibleIncompatibilities
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2566	uuid: '9c932e1c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2567	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2568	model: warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2569	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2570	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2571	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2572	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2573	label: 'Possible STC Compilation Problems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2574	name: 'PossibleSTCCompilationProblems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2575	activeHelpKey: warnAboutPossibleSTCCompilationProblems
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2576	uuid: '9c933056-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2577	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2578	model: warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2579	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2580	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2581	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2582	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2583	label: 'Possibly Unimplemented Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2584	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2585	activeHelpKey: warnAboutPossiblyUnimplementedSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2586	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2587	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2588	model: warnAboutPossiblyUnimplementedSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2589	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2590	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2591	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2592	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2593	label: 'Plausibility Checks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2594	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2595	activeHelpKey: warnPlausibilityChecks
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2596	uuid: '9c9334ca-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2597	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2598	model: warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2599	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2600	extent: (Point 312 22)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2601	)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2602	(CheckBoxSpec
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2603	label: 'Possibly Uninitialized Locals'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2604	name: 'CheckBox12'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2605	activeHelpKey: warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2606	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2607	enableChannel: warnings
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2608	model: warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2609	translateLabel: true
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2610	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2611	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2612	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2613
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2614	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2615	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2616	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2617	name: 'VerticalPanel2_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2618	layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2619	uuid: '9c933736-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2620	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2621	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2622	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2623	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2624	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2625	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2626	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2627	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2628	label: 'Unused Method Variables'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2629	name: 'UnusedMethodVariables'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2630	activeHelpKey: warnUnusedVars
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2631	uuid: '9c933984-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2632	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2633	model: warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2634	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2635	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2636	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2637	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2638	label: 'Bad Variable Names (non-English article)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2639	name: 'BadVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2640	activeHelpKey: warnAboutWrongVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2641	uuid: '9c933c90-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2642	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2643	model: warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2644	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2645	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2646	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2647	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2648	label: 'Bad (Non-Lowercase) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2649	name: 'BadLocalVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2650	activeHelpKey: warnAboutNonLowercaseLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2651	uuid: '9c933ef2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2652	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2653	model: warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2654	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2655	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2656	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2657	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2658	label: 'Bad (Short) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2659	name: 'CheckBox2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2660	activeHelpKey: warnAboutShortLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2661	uuid: '9c934140-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2662	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2663	model: warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2664	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2665	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2666	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2667	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2668	label: 'Bad (empty) Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2669	name: 'BadComments'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2670	activeHelpKey: warnAboutBadComments
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2671	uuid: '9c93437a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2672	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2673	model: warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2674	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2675	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2676	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2677	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2678	label: 'Method-Comment Missing '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2679	name: 'CheckBox5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2680	activeHelpKey: warnAboutMissingMethodComment
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2681	uuid: '9c9345be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2682	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2683	model: warnAboutMissingMethodComment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2684	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2685	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2686	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2687	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2688	label: 'Inconsistent Return Values'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2689	name: 'InconsistentReturnValues'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2690	activeHelpKey: warnInconsistentReturnValues
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2691	uuid: '9c9347f8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2692	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2693	model: warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2694	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2695	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2696	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2697	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2698	label: 'Common Mistakes'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2699	name: 'CommonMistakes'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2700	activeHelpKey: warnCommonMistakes
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2701	uuid: '9c934a32-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2702	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2703	model: warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2704	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2705	extent: (Point 600 22)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2706	)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2707	(CheckBoxSpec
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2708	label: 'Paragraph in Identifier'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2709	name: 'CheckBox11'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2710	activeHelpKey: warnParagraphInIdentifier
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2711	uuid: '9c934c6c-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2712	enableChannel: enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2713	model: warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2714	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2715	extent: (Point 600 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2716	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2717	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2718
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2719	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2720	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2721	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2722
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2723	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2724	extent: (Point 664 224)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2725	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2726	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2727	name: 'Box4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2728	uuid: '9c934f00-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2729	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2730	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2731	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2732	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2733	label: 'Reenable Suppressed Warnings Now'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2734	name: 'Button1'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2735	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2736	activeHelpKey: reenableSuppressedWarnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2737	uuid: '9c93519e-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2738	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2739	model: reenableSuppressedWarnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2740	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2741	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2742
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2743	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2744	extent: (Point 664 33)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2745	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2746	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2747	name: 'Separator5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2748	uuid: '9c9356ee-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2749	extent: (Point 664 2)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2750	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2751	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2752	label: 'Literal Strings are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2753	name: 'LiteralStringsAreImmutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2754	activeHelpKey: stringsAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2755	uuid: '9c935932-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2756	model: stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2757	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2758	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2759	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2760	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2761	label: 'Literal Arrays are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2762	name: 'CheckBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2763	activeHelpKey: arraysAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2764	uuid: '9c935c02-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2765	model: arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2766	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2767	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2768	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2769	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2770	label: 'Full Debug Info'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2771	name: 'FullDebugInfo'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2772	activeHelpKey: fullDebugInfo
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2773	uuid: '9c935ec8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2774	model: fullDebugSupport
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2775	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2776	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2777	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2778	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2779	name: 'Separator6'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2780	uuid: '9c936170-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2781	extent: (Point 664 2)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2782	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2783	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2784	name: 'Box3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2785	uuid: '9c93636e-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2786	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2787	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2788	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2789	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2790	label: 'Constant Folding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2791	name: 'ConstantFoldingLabel'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2792	layout: (LayoutFrame 0 0 0 0 328 0 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2793	uuid: '9c93658a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2794	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2795	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2796	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2797	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2798	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2799	name: 'ConstantFolding'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2800	layout: (LayoutFrame 330 0 0 0 -5 1 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2801	uuid: '9c9368f0-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2802	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2803	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2804	model: constantFoldingSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2805	menu: constantFolding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2806	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2807	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2808	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2809
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2810	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2811	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2812	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2813	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2814
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2815	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2816	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2817	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2818
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2819	)
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2820	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2821	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2822
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2823	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2824
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2825	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2826	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2827	readAspects:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2828	from:ParserFlags.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2829
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2830	self constantFoldingSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2831	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	2832
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2833	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2834	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2835	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2836	self fullDebugSupport value:(ParserFlags fullLineNumberInfo)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2837	].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2838
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2839	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2840	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2841	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2842	self justInTimeCompilation value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2843	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2844
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2845	self warnAboutMissingMethodComment value:(UserPreferences current enforceComment).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2846
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2847	"Modified: / 26-09-2012 / 14:16:32 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2848	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2849
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2850	basicSaveSettings
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2851	\|extensionSettingsChanged\|
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2852
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2853	extensionSettingsChanged := ParserFlags allowSqueakExtensions ~= self allowSqueakExtensions.
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2854
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2855	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2856	writeAspects:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2857	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2858
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2859	ParserFlags lineNumberInfo:(self fullDebugSupport value ifTrue:[#full] ifFalse:[true]).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2861	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2862
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2863	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2864	\| justInTime \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2865	justInTime := self justInTimeCompilation value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2866	justInTime ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2867	Smalltalk allMethodsDo:[:m \| m checked:false].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2868	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2869	ObjectMemory justInTimeCompilation:justInTime.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2870	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2871	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2872
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2873	UserPreferences current enforceComment:(self warnAboutMissingMethodComment value).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2874
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2875	extensionSettingsChanged ifTrue:[
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2876	ParserFlags allowSymbolsStartingWithDigit:(ParserFlags allowSqueakExtensions)
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2877	].
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2878
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2879	"Modified: / 18-06-2017 / 16:28:58 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2880	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2881
11292 7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2882	reenableSuppressedWarnings
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2883	ParserFlags reenableAllSuppressedFlags
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2884
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2885	"Created: / 28-02-2012 / 13:32:52 / cg"
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2886	!
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2887
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2888	simpleAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2889	^
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2890	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2891	warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2892	warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2893	warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2894	warnDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2895	warnParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2896	warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2897	warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2898	warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2899	warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2900	warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2901	warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2902	warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2903	warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2904	warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2905	warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2906	warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2907	warnAboutPossiblyUnimplementedSelectors
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2908	warnAboutPossiblyUninitializedLocals
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2909	warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2910
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2911	allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2912	allowParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2913	allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2914	allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2915	allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2916	allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2917	allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2918	allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2919	allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2920	allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2921	allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2922	allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2923	allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2924
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2925	arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2926	stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2927	allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2928	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2929
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2930	"Created: / 20-11-2006 / 22:37:17 / cg"
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2931	"Modified: / 16-11-2016 / 22:40:51 / cg"
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2932	"Modified: / 23-04-2019 / 23:16:47 / Claus Gittinger"
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2933	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2934
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2935	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2936
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2937	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2938	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2939
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2941
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2942	allowAssignmentToPoolVariable
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2943
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2944	allowAssignmentToPoolVariable isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2945	allowAssignmentToPoolVariable := ParserFlags allowAssignmentToPoolVariable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2946	allowAssignmentToPoolVariable onChangeSend:#updateModifiedChannel to:self.
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2947	].
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2948	^ allowAssignmentToPoolVariable.
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2949
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2950	"Created: / 12-09-2011 / 17:26:01 / cg"
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2951	!
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2952
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	2953	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2955	allowDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2956	allowDollar := ParserFlags allowDollarInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2957	allowDollar onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2958	allowDollar addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2959	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2960	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2961	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2963	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2964
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2965	allowDolphinExtensions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2966	allowDolphinExtensions := ParserFlags allowDolphinExtensions asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2967	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2968	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2969	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2970	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2971
7532 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	allowEmptyStatements isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2975	allowEmptyStatements := ParserFlags allowEmptyStatements asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2976	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2977	"/ allowEmptyStatements addDependent:self.
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2978	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2979	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2980
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2981	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2982	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2983
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2984	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2985
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2986	allowExtendedBinarySelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2987	allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2988	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2989	].
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2990	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2991	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2992
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2993	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2994
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2995	allowFixedPointLiterals isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2996	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2997	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2998	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2999	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	3000	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	3001
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3002	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3004	allowOldStyleAssignment isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3005	allowOldStyleAssignment := ParserFlags allowOldStyleAssignment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3006	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3007	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3008	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3009	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3010
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3011	allowParagraphInIdentifier
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	allowParagraph isNil ifTrue:[
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3014	allowParagraph := ParserFlags allowParagraphInIdentifier asValue.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3015	allowParagraph onChangeSend:#updateModifiedChannel to:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3016	allowParagraph addDependent:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3017	].
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3018	^ allowParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3019
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3020	"Created: / 16-11-2016 / 22:38:18 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3021	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3022
4286 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	"true, if '#{..}' and 'namespace.varName' qualified names are allowed"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3026	allowQualifiedNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3027	allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3028	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3029	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3030	^ allowQualifiedNames.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3031
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3032	"Modified (comment): / 23-09-2018 / 01:08:42 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3033	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035	allowReservedWordsAsSelectors
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3036	"if true, 'self', 'super', 'thisContext', 'nil', 'true' and 'false' are allowed
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3037	as unary message selectors."
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039	allowReservedWordsAsSelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3040	allowReservedWordsAsSelectors := ParserFlags allowReservedWordsAsSelectors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3041	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3043	^ allowReservedWordsAsSelectors.
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3044
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3045	"Modified (comment): / 25-06-2019 / 11:16:36 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3046	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3047
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3048	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3050	allowSqueakExtensions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3051	allowSqueakExtensions := ParserFlags allowSqueakExtensions asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3052	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3053	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3054	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3055	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3056
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3057	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3059	allowUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3060	allowUnderscore := ParserFlags allowUnderscoreInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3061	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3062	allowUnderscore addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3063	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3064	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3065	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3066
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3067	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3068
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3069	allowVisualAgeESSymbolLiterals isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3070	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3071	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3072	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3073	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3074	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3075
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3076	allowVisualAgePrimitives
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3077
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3078	allowVisualAgePrimitives isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3079	allowVisualAgePrimitives := ParserFlags allowVisualAgePrimitives asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3080	allowVisualAgePrimitives onChangeSend:#updateModifiedChannel to:self.
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3081	].
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3082	^ allowVisualAgePrimitives.
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3083
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3084	"Created: / 07-02-2012 / 17:06:19 / cg"
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3085	!
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3086
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3087	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3088
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3089	immutableArrays isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3090	immutableArrays := ParserFlags arraysAreImmutable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3091	immutableArrays onChangeSend:#updateModifiedChannel to:self.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3092	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3093	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3094	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3095
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098	constantFolding isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3099	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3100	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106	constantFoldingOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3107	constantFoldingOptions := self class constantFoldingOptions.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3108	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3109	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3111
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3114	constantFoldingSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3115	\| index \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3116	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3117	constantFoldingSelection := index asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3118	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3119	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3120	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3123	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3124
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3125	enableDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3126	enableDollar := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3127	enableDollar addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3128	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3130	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3131
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3132	enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3133
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3134	enableParagraph isNil ifTrue:[
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3135	enableParagraph := true asValue.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3136	enableParagraph addDependent:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3137	].
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3138	^ enableParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3139
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3140	"Created: / 16-11-2016 / 22:39:57 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3141	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3142
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144	enableUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3145	enableUnderscore := true asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3147	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3148	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3150	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152	fullDebugSupport isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3153	self supportsJustInTimeCompilation ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3154	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3155	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3156	fullDebugSupport := (ParserFlags fullLineNumberInfo) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3157	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3158	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160	^ fullDebugSupport.
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3161
ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3162	"Modified: / 26-09-2012 / 14:16:27 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3163	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3165	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	justInTimeCompilation isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3168	self supportsJustInTimeCompilation ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3169	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3170	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3171	justInTimeCompilation := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3172	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3173	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3174	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3175	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3176	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3177
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3178	stringsAreImmutable
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3179
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3180	immutableStrings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3181	immutableStrings := ParserFlags arraysAreImmutable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3182	immutableStrings onChangeSend:#updateModifiedChannel to:self.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3183	].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3184	^ immutableStrings.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3185	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3186
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3187	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3188	warnAboutBadComments isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3189	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3190	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3191	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3192	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3193	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3194
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3195	warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3196
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3197	warnAboutMissingMethodComment isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3198	warnAboutMissingMethodComment := UserPreferences current enforceComment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3199	warnAboutMissingMethodComment onChangeSend:#updateModifiedChannel to:self.
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3200	].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3201	^ warnAboutMissingMethodComment.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3202
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3203	"Created: / 17-07-2010 / 14:39:25 / cg"
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3204	!
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3205
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3206	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3207	warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3208	warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3209	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3210	].
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3211	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3212
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3213	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3214	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3215
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3216	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3217
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3218	warnAboutPossibleSTCCompilationProblems isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3219	warnAboutPossibleSTCCompilationProblems := ParserFlags warnAboutPossibleSTCCompilationProblems asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3220	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3221	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3222	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3223
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3224	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3225	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3226
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3227	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3228
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3229	warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3230	warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3231	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3232	].
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3233	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3234
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3235	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3236	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3237
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3238	warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3239
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3240	warnAboutPossiblyUninitializedLocals isNil ifTrue:[
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3241	warnAboutPossiblyUninitializedLocals := ParserFlags warnAboutPossiblyUninitializedLocals asValue.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3242	warnAboutPossiblyUninitializedLocals onChangeSend:#updateModifiedChannel to:self.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3243	].
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3244	^ warnAboutPossiblyUninitializedLocals.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3245
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3246	"Created: / 23-04-2019 / 23:16:25 / Claus Gittinger"
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3247	!
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3248
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3249	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3250	warnAboutReferenceToPrivateClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3251	warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3252	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3253	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3254	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3255	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3256
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3257	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3258	warnAboutShortLocalVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3259	warnAboutShortLocalVariableNames := ParserFlags warnAboutShortLocalVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3260	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3261	].
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3262	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3263	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3264
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3265	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3266	warnAboutWrongVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3267	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3268	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3269	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3270	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3271	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3272
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3273	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3275	warnCommonMistakes isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3276	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3277	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3278	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3279	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3280	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3281
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3282	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3283
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3284	warnDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3285	warnDollar := ParserFlags warnDollarInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3286	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3287	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3288	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3289	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3290
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3291	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3292	warnInconsistentReturnValues isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3293	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3294	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3295	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3296	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3297	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3298
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3299	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3300
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3301	warnOldStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3302	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3303	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3304	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3305	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3306	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3307
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3308	warnPlausibilityChecks
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3309
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3310	warnPlausibilityChecks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3311	warnPlausibilityChecks := ParserFlags warnPlausibilityChecks asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3312	warnPlausibilityChecks onChangeSend:#updateModifiedChannel to:self.
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3313	].
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3314	^ warnPlausibilityChecks.
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3315
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3316	"Created: / 19-01-2012 / 10:57:29 / cg"
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3317	!
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3318
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3319	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3320	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3321	are to be warned about"
6778 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	warnCompatibility isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3324	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3325	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3326	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3327	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3328	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3329
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3330	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3332	warnSTX isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3333	warnSTX := ParserFlags warnSTXSpecials asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3334	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3335	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3336	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3339	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341	warnUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3342	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3343	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3344	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3345	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3346	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3347
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3348	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3349
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3350	warnUnusedVars isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3351	warnUnusedVars := ParserFlags warnUnusedVars asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3352	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3353	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3354	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3355	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3357	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3359	warnings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3360	warnings := ParserFlags warnings asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3361	warnings addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3362	warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3363	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3364	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3365	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3366	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3367
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3368	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3370	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3371	changedObject == self warnings ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3372	changedObject value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3373	self enableUnderscore value:self allowUnderscoreInIdentifier value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3374	self enableDollar value:self allowDollarInIdentifier value.
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3375	self enableParagraph value:self allowParagraphInIdentifier value.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3376	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3377	self enableUnderscore value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3378	self enableDollar value:false.
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3379	self enableParagraph value:false.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3380	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3381	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3382	].
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3383	(changedObject == self allowDollarInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3384	or:[changedObject == self allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3385	or:[changedObject == self allowUnderscoreInIdentifier]]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3386	self warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3387	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3388	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3389
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3390	super update:something with:aParameter from:changedObject
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3391
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3392	"Modified: / 16-11-2016 / 22:39:32 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3393	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3394
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3395	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3396
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3397	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3398	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3399	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3400
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3401	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3403	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	3404	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3405	hasChangedAspectIn:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3406	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3407
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3408	((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	3409	((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	3410	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3411
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3412	(UserPreferences current enforceComment ~= self warnAboutMissingMethodComment value) ifTrue:[^ true].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3413
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3414	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3415
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3416	"Modified: / 26-09-2012 / 14:16:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3417	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3418
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3419	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3420
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3421	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3422	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3423
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3424	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3425
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3426	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3427	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3428	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	3429	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3430	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3431
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3432	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'help specs'!
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3433
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3434	helpSpec
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3435	"This resource specification was automatically generated
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3436	by the UIHelpTool of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3439	the UIHelpTool may not be able to read the specification."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3440
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3441	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3442	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3443	"
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3444
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3445	<resource: #help>
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3446
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3447	^ super helpSpec addPairsFrom:#(
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3448
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3449	#changeFileName
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3450	'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	3451
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3452	#logDoits
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3453	'Also record doIt evaluations in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3454
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3455	#updChanges
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3456	'Record code changes (classes and methods) in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3457
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3458	)
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3459	! !
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3460
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3461	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3462
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3463	defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3464	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3465	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3466
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3467	"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	3468	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3469
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3470	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3471	self defaultIcon inspect
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3472	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3473	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3474	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3475
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3476	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3477
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3478	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3479	constantNamed:'AbstractSettingsApplication::ChangeFileSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3480	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3481	@@@@@@@@@@@@@@@ADQDQDQDQDQD @@DTQDQDQDQDQBD@@QP3MDQDQDQDHP@AECQDQDQDQDP!!@@DTMDQDQDQDQBD@@QP3MDP3QDQDHP@AEDQDP3L4QDP!!@@DT
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3482	QDP3QCMDQBD@@QQDP3QDP3QDHP@AEDP3QDQDL4P!!@@DTP3QDQDQCMBD@@QQCL3L3L3L4@P@AEDDQDQDQDQPA@@DTQDQDQDQDQ@D@@QP3MDQDQDQD@P@AEDP4
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3483	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	3484	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3485
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3486	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3489	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3490	by the UIPainter of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3491
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3492	"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	3493	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	3494
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3495	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3496	UIPainter new openOnClass:AbstractSettingsApplication::ChangeFileSettingsAppl andSelector:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3497	AbstractSettingsApplication::ChangeFileSettingsAppl new openInterface:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3498	AbstractSettingsApplication::ChangeFileSettingsAppl open
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3499	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3500
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3501	<resource: #canvas>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3502
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3503	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3504	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3505	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3506	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3507	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3508	label: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3509	name: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3510	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3511	bounds: (Rectangle 0 0 561 478)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3512	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3513	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3514	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3515	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3516	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3517	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3518	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	3519	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3520	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3521	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3522	verticalSpace: 5
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3523	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3524	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3525	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3526	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3527	label: 'Change File'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3528	name: 'FramedBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3529	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3530	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3531	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3532	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3533	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3534	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3535	label: 'Log changed classes and methods in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3536	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3537	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3538	activeHelpKey: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3539	model: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3540	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3541	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3542	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3543	label: 'Log doIts in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3544	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3545	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3546	activeHelpKey: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3547	model: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3548	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3549	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3550	(ViewSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3551	name: 'Box1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3552	layout: (LayoutFrame 5 0 73 0 -5 1 105 0)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3553	component:
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3554	(SpecCollection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3555	collection: (
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3556	(LabelSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3557	label: 'Changefile Name:'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3558	name: 'ChangefileNameLabel'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3559	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	3560	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3561	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3562	adjust: right
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3563	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3564	(FilenameInputFieldSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3565	name: 'FilenameEntryField1'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3566	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	3567	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3568	model: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3569	immediateAccept: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3570	acceptOnReturn: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3571	acceptOnTab: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3572	acceptOnLostFocus: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3573	acceptOnPointerLeave: true
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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3576
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3577	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3578	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3579	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3580
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3581	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3582	extent: (Point 551 147)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3583	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3584	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3585
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3586	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3587	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3588	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3589
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3590	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3591	)
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3592	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3593
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3594	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3595
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3596	basicReadSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3597	self changeFileName value:(currentUserPrefs changeFileName
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3598	? ObjectMemory nameForChanges).
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3599	self logDoits value:Smalltalk logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3600	self updChanges value:Class updatingChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3601
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3602	"Modified: / 27-10-2010 / 10:16:48 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3603	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3604
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3605	basicSaveSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3606	\|chgFile\|
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3607
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3608	chgFile := self changeFileName value.
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3609	chgFile := chgFile asNilIfEmpty.
14379 8e683325f9ac class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14377 diff changeset	3610	currentUserPrefs changeFileName isNil ifTrue:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3611	"/ had the default
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3612	chgFile = ObjectMemory nameForChanges ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3613	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3614	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3615	]
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3616	] ifFalse:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3617	"/ had a value before
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3618	chgFile = currentUserPrefs changeFileName ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3619	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3620	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3621	].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3622	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3623	Smalltalk logDoits:self logDoits value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3624	Class updateChanges:self updChanges value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3625
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	3626	"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	3627	! !
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	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3630
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3631	changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3632	changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3633	changeFileName := ObjectMemory nameForChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3634	changeFileName onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3635	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3636	^ changeFileName.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3637
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3638	"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	3639	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3640
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3641	logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3642	logDoits isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3643	logDoits := Smalltalk logDoits asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3644	logDoits onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3645	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3646	^ logDoits.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3647
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3648	"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	3649	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3650
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3651	updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3652	updChanges isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3653	updChanges := Class updatingChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3654	updChanges onChangeSend:#updateModifiedChannel to:self
9610 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	^ updChanges.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3657
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3658	"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	3659	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3660
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3661	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3662
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3663	helpFilename
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3664	^ 'Launcher/messageSettings.html'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3665	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3666
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3667	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3668
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3669	hasUnsavedChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3670	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3671	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3672	currentUserPrefs changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3673	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3674	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3675	self changeFileName value ~= currentUserPrefs changeFileName ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3676	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3677	^ false
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3678
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3679	"Modified: / 27-10-2010 / 10:17:21 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3680	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3681
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3682	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3683
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3684	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3685	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3686	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3687
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3688	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3689	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3690
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3691	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3692	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3693	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3694	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3695	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3696
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3697	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3698
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3699	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3700	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3701	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3702	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	3703	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	3704	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	3705	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3706
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3707	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3710	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3711	by the UIPainter of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3712
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3713	"Do not manually edit this!! If it is corrupted,
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3714	the UIPainter may not be able to read the specification."
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3715
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3716	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3717	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3718	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3719	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3720	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3721
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3722	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3723
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3724	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3725	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3726	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3727	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3728	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3729	label: 'Code Generator Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3730	name: 'Code Generator Settings'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3731	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3732	bounds: (Rectangle 0 0 607 786)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3733	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3734	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3735	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3736	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3737	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3738	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3739	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3740	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3741	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3742	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3743	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3744	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3745	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3746	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3747	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3748	label: 'Generate Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3749	name: 'GenerateComments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3750	activeHelpKey: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3751	model: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3752	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3753	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3754	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3755	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3756	label: 'Generate Comments in Getters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3757	name: 'GenerateCommentsInGetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3758	activeHelpKey: generateCommentsInGetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3759	enableChannel: generateComments
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3760	model: generateCommentsForGetters
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3761	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3762	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3763	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3764	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3765	label: 'Generate Comments in Setters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3766	name: 'GenerateCommentsInSetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3767	activeHelpKey: generateCommentsInSetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3768	enableChannel: generateComments
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3769	model: generateCommentsForSetters
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3770	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3771	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3772	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3773	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3774
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3775	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3776	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3777	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3778
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3779	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3780	)
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3781
fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3782	"Modified: / 07-06-2019 / 16:00:21 / Stefan Vogel"
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3783	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3784
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3785	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3786
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3787	aspects
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3788	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3789	generateComments
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3790	generateCommentsForGetters
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3791	generateCommentsForSetters
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	!
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	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3796	generateComments isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3797	generateComments := UserPreferences current generateComments asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3798	generateComments onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3799	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3800	^ generateComments.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3801	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3802
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3803	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3804	generateCommentsForGetters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3805	generateCommentsForGetters := UserPreferences current generateCommentsForGetters asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3806	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3807	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3808	^ generateCommentsForGetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3809	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3810
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3811	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3812	generateCommentsForSetters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3813	generateCommentsForSetters := UserPreferences current generateCommentsForSetters asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3814	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3815	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3816	^ generateCommentsForSetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3817	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3818
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3819	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3820
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3821	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3822	^ 'Launcher/codeGeneratorSettings.html'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3823	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3824
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3825	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'help spec'!
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	helpSpec
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3828	"This resource specification was automatically generated
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3829	by the UIHelpTool of ST/X."
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	"Do not manually edit this!! If it is corrupted,
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3832	the UIHelpTool may not be able to read the specification."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3833
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3834	"
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3835	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3836	"
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3837
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3838	<resource: #help>
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3839
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3840	^ super helpSpec addPairsFrom:#(
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3841
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3842	#logExecutedOSCommands
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3843	'Display executed OS commands on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3844
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3845	#logHTTPRequests
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3846	'Display outgoing HTTP request on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3847
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3848	#logSOAPRequests
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3849	'Display outgoing SOAP request on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3850
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3851	#logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3852	'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	3853
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3854	)
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3855
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3856	"Created: / 23-05-2018 / 05:47:50 / Claus Gittinger"
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3857	"Modified: / 13-06-2018 / 17:27:24 / Claus Gittinger"
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3858	! !
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3859
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3860	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3863	<resource: #programImage>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3864
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3865	^ self defaultIcon2
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
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3868	defaultIcon1
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3869	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3870	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3871
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3872	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3873	the ImageEditor may not be able to read the specification."
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	"
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3876	self defaultIcon1 inspect
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3877	ImageEditor openOnClass:self andSelector:#defaultIcon1
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3878	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3879	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3880
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3881	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3882
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3883	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3884	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3885	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3886	@@@@@@@@@@@@@@@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	3887	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	3888	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	3889	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	3890	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	3891	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3892
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3893	defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3894	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3895	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3896
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3897	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3898	the ImageEditor may not be able to read the specification."
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	self defaultIcon2 inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3902	ImageEditor openOnClass:self andSelector:#defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3903	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3904	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3905
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3906	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3907
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3908	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3909	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon2'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3910	ifAbsentPut:[(Depth8Image width:17 height:22) bits:(ByteArray fromPackedString:'
9278 f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	3911	@@@@@@@@@@@@@@@@@@@@@@@@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	3912	@ 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	3913	@ (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	3914	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	3915	@@@@@@@@@@@@@@@@@@@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	3916	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3917
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3918	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3919
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3920	windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3921	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3922	by the UIPainter of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3923
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3924	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3925	the UIPainter may not be able to read the specification."
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	UIPainter new openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl andSelector:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3929	AbstractSettingsApplication::CommunicationLoggingSettingsAppl new openInterface:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3930	AbstractSettingsApplication::CommunicationLoggingSettingsAppl open
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3931	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3932
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3933	<resource: #canvas>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3934
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3935	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3936	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3937	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3938	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3939	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3940	label: 'Com-Logging settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3941	name: 'Com-Logging settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3942	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3943	bounds: (Rectangle 0 0 445 401)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3944	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3945	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3946	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3947	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3948	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3949	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3950	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3951	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3952	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3953	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3954	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3955	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3956	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3957	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3958	(CheckBoxSpec
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3959	label: 'Log Executed OS Commands'
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3960	name: 'LogExecutedOSCommands'
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3961	activeHelpKey: logExecutedOSCommands
41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3962	model: logExecutedOSCommands
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3963	translateLabel: true
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3964	extent: (Point 571 34)
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3965	)
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3966	(CheckBoxSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3967	label: 'Log Outgoing HTTP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3968	name: 'LogHTTPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3969	activeHelpKey: logHTTPRequests
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
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3978	model: logSOAPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3979	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3980	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3981	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3982	(CheckBoxSpec
18208 1c027c9eb9de #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18207 diff changeset	3983	label: 'Log IMAP and POP3 Communication Protocols'
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3984	name: 'LogNetCommunications'
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3985	activeHelpKey: logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3986	model: logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3987	translateLabel: true
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3988	extent: (Point 435 30)
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3989	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3990	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3991
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3992	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3993	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3994	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3995
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3996	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3997	)
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3998
41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3999	"Modified: / 17-05-2018 / 12:50:11 / Stefan Vogel"
18208 1c027c9eb9de #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18207 diff changeset	4000	"Modified: / 13-06-2018 / 17:46:28 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4001	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4002
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4003	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4004
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4005	aspects
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4006	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4007	logHTTPRequests
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4008	logSOAPRequests
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4009	logExecutedOSCommands
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4010	logNetCommunications
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4011	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4012
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4013	"Modified: / 13-06-2018 / 17:28:08 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4014	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4015
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4016	logExecutedOSCommands
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4017	logExecutedOSCommands isNil ifTrue:[
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4018	logExecutedOSCommands := false asValue.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4019	logExecutedOSCommands onChangeSend:#updateModifiedChannel to:self
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4020	].
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4021	^ logExecutedOSCommands.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4022	!
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4023
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4024	logHTTPRequests
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4025	logHTTPRequests isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4026	logHTTPRequests := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4027	logHTTPRequests onChangeSend:#updateModifiedChannel to:self
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4028	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4029	^ logHTTPRequests.
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
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4032	logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4033	logNetCommunications isNil ifTrue:[
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4034	logNetCommunications := false asValue.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4035	logNetCommunications onChangeSend:#updateModifiedChannel to:self
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4036	].
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4037	^ logNetCommunications.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4038
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4039	"Created: / 13-06-2018 / 17:27:50 / Claus Gittinger"
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4040	!
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4041
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4042	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4043	logSOAPRequests isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4044	logSOAPRequests := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4045	logSOAPRequests onChangeSend:#updateModifiedChannel to:self
9277 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	^ logSOAPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4048	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4049
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4050	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4051
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4052	helpFilename
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4053	^ 'Launcher/comLoggingSettings.html'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4054	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4055
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4056	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4057
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4058	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4059	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4060	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4061
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4062	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4063	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4064
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4065	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4066	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4067	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4068
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4069	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4070
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4071	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4072
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4073	#allowSendingMail
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4074	'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	4075
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4076	#hideSupportCode
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4077	'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	4078
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4079	#showErrorNotifier
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4080	'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	4081
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4082	#showVerboseStack
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4083	'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	4084
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4085	#useNewLayout
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4086	'Use the new button layout with step/next buttons in the middle'
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	)
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4089
b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4090	"Modified: / 01-06-2017 / 14:12:51 / mawalch"
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4091	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4092
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4093	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4094
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4095	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4096	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4097
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4098	^ ToolbarIconLibrary bugReporter24x24Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4099	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4100
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4101	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4102
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4103	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4104	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4105	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4106
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4107	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4108	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4109
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4110	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4111	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4112	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4113	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4114	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4115
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4116	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4117
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4118	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4119	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4120	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4121	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4122	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4123	label: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4124	name: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4125	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4126	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4127	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4128	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4129	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4130	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4131	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4132	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4133	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	4134	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4135	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4136	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4137	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4138	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4139	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4140	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4141	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4142	name: 'ShowErrorNotifierBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4143	activeHelpKey: showErrorNotifier
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4144	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4145	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4146	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4147	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4148	label: 'Show Error Notifier before Opening Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4149	name: 'ShowErrorNotifierCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4150	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4151	activeHelpKey: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4152	model: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4153	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4154	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4155	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4156
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4157	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4158	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4159	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4160	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4161	name: 'UseNewLayoutInDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4162	activeHelpKey: useNewLayout
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4163	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4164	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4165	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4166	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4167	label: 'Use New Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4168	name: 'UseNewLayoutInDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4169	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4170	activeHelpKey: useNewLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4171	model: useNewLayoutInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4172	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4173	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4174	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4175
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4176	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4177	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4178	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4179	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4180	name: 'ShowVerboseStackBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4181	activeHelpKey: showVerboseStack
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4182	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4183	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4184	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4185	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4186	label: 'Verbose Backtrace by Default in Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4187	name: 'ShowVerboseStackCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4188	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4189	activeHelpKey: showVerboseStack
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4190	model: verboseBacktraceInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4191	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4192	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4193	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4194
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4195	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4196	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4197	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4198	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4199	name: 'HideEnumerationCodeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4200	activeHelpKey: hideSupportCode
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4201	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4202	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4203	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4204	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4205	label: 'Hide Support Code (Implementation of Enumerations, Exceptions, etc.)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4206	name: 'CheckBox1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4207	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4208	activeHelpKey: hideSupportCode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4209	model: hideSupportCodeInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4210	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4211	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4212	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4213
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4214	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4215	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4216	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4217	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4218	name: 'AllowSendingMailFromDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4219	activeHelpKey: allowSendingMail
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4220	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4221	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4222	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4223	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4224	label: 'Allow Sending of Error Reports from Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4225	name: 'AllowSendingMailFromDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4226	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4227	activeHelpKey: allowSendingMail
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4228	model: allowSendMailFromDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4229	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4230	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4231	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4232
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4233	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4234	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4235	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4236	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4237
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4238	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4239	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4240	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4241
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4242	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4243	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4244	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4245
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4246	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4247
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4248	basicReadSettings
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4249	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4250	super basicReadSettings.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4251
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4252	"Modified: / 10-06-2012 / 21:23:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4253	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4254
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4255	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4256	self showErrorNotifier value ifFalse:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4257	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4258	] ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4259	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4260	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4261	super basicSaveSettings.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4262	Debugger newDebugger.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4263
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4264	"Modified: / 10-06-2012 / 21:23:32 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4265	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4266
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4267	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4268
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4269	allowSendMailFromDebugger
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	allowSendMailFromDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4272	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4273	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4274	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4275	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4276	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4277
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4278	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4279	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4280	allowSendMailFromDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4281	verboseBacktraceInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4282	hideSupportCodeInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4283	useNewLayoutInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4284	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4285	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4286
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4287	hideSupportCodeInDebugger
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4288
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4289	hideSupportCodeInDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4290	hideSupportCodeInDebugger := (UserPreferences current hideSupportCodeInDebugger ? true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4291	hideSupportCodeInDebugger onChangeSend:#updateModifiedChannel to:self
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4292	].
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4293	^ hideSupportCodeInDebugger.
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4294
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4295	"Created: / 10-06-2012 / 21:23:40 / cg"
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4296	!
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4297
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4298	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4299
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4300	showErrorNotifier isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4301	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4302	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4303	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4304	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4305	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4306
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4307	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4308
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4309	useNewLayoutInDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4310	useNewLayoutInDebugger := (UserPreferences current useNewLayoutInDebugger) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4311	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4312	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4313	^ useNewLayoutInDebugger.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4314	!
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4315
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4316	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4317
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4318	verboseBacktraceInDebugger isNil ifTrue:[
15258 27aafcf5e745 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15166 diff changeset	4319	verboseBacktraceInDebugger := (UserPreferences current verboseBacktraceInDebugger) asValue.
27aafcf5e745 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15166 diff changeset	4320	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4321	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4322	^ verboseBacktraceInDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4323	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4324
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4325	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4326
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4327	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4328	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4329	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4330
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4331	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4332
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4333	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4334	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4335	^ super hasUnsavedChanges
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4336
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4337	"Modified: / 10-06-2012 / 21:23:54 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4338	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4339
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4340	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4342	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4343
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4344	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4345	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4347	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4348
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4349	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4350	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4351
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4352	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4354	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4355	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4357	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4359	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4360	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4361
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4362	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4364	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4372	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'help specs'!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4373
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4374	helpSpec
16340 326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4375	<resource: #help>
326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4376
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4377	^ super helpSpec addPairsFrom:#(
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4378
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4379	#enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4380	'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	4381
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4382	)
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4383
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4384	"Created: / 24-06-2014 / 19:39:38 / cg"
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4385	"Modified: / 28-02-2019 / 12:51:36 / Claus Gittinger"
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4386	! !
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4387
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4388	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4389
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4390	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4391	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4392
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4393	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4394	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4395
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4396	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4398	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4399	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4400	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4402	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4403	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4405	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4406	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4407	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4408	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4409	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4411	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4412
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4413	^
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4414	#(FullSpec
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4415	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4416	window:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4417	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4418	label: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4419	name: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4420	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4421	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4422	bounds: (Rectangle 0 0 604 500)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4423	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4424	component:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4425	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4426	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4427	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4428	label: 'Actual Visible Screen Area:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4429	name: 'ActualVisibleScreenAreaLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4430	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4431	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4432	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4433	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4434	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4435	label: 'Common Sizes:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4436	name: 'CommonSizesLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4437	layout: (LayoutFrame 0 0 39 0 277 0 69 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4438	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4439	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4440	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4441	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4442	label: 'monitor size'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4443	name: 'MonitorSelectionPopUpList'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4444	layout: (LayoutFrame 280 0 39 0 -5 1 69 0)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4445	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4446	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4447	model: monitorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4448	menu: monitorList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4449	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4450	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4451	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4452	label: 'Screen Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4453	name: 'ScreenSizeLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4454	layout: (LayoutFrame 5 0 73 0 277 0 103 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4455	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4456	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4457	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4458	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4459	name: 'SizeXEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4460	layout: (LayoutFrame 280 0 72 0 347 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4461	model: sizeX
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4462	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4463	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4464	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4465	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4466	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4467	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4468	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4469	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4470	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4471	name: 'xLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4472	layout: (LayoutFrame 348 0 72 0 369 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4473	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4474	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4475	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4476	name: 'SizeYEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4477	layout: (LayoutFrame 370 0 72 0 437 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4478	model: sizeY
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4479	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4480	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4481	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4482	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4483	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4484	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4485	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4486	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4487	label: '(mm)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4488	name: 'mmLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4489	layout: (LayoutFrame 439 0 72 0 485 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4490	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4491	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4492	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4493	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4494	label: 'Limit Usable Area To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4495	name: 'Label1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4496	layout: (LayoutFrame 5 0 110 0 277 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4497	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4498	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4499	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4500	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4501	name: 'EntryField1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4502	layout: (LayoutFrame 280 0 110 0 347 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4503	model: usedWidth
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4504	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4505	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4506	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4507	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4508	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4509	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4510	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4511	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4512	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4513	name: 'Label2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4514	layout: (LayoutFrame 348 0 110 0 369 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4515	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4516	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4517	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4518	name: 'EntryField2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4519	layout: (LayoutFrame 370 0 110 0 437 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4520	model: usedHeight
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4521	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4522	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4523	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4524	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4525	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4526	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4527	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4528	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4529	label: '(Pixel)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4530	name: 'Label3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4531	layout: (LayoutFrame 439 0 110 0 507 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4532	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4533	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4534	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4535	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4536	label: 'Restore'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4537	name: 'Button1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4538	layout: (AlignmentOrigin 512 0 124 0 0 0.5)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4539	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4540	model: restoreUsableExtent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4541	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4542	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4543	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4544	layout: (LayoutFrame 0 0.0 143 0 0 1.0 147 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4545	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4546	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4547	name: 'ScreenDepthVisualLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4548	layout: (LayoutFrame 0 0.0 151 0.0 0 1.0 181 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4549	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4550	labelChannel: screenDepthVisualLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4551	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4552	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4553	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4554	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4555	layout: (LayoutFrame 0 0.0 182 0 0 1.0 186 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4556	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4557	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4558	label: 'Color Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4559	name: 'ColorMonitorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4560	layout: (LayoutFrame 5 0 193 0 250 0 223 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4561	model: isColorMonitor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4562	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4563	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4564	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4565	label: 'Use Fix Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4566	name: 'FixColorPaletteCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4567	layout: (LayoutFrame 5 0 223 0 301 0 253 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4568	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4569	model: useFixPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4570	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4571	labelChannel: useFixPaletteLabel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4572	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4573	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4574	label: 'Use Fix Gray Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4575	name: 'UseFixGrayPaletteCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4576	layout: (LayoutFrame 5 0 257 0 301 0 287 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4577	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4578	model: useFixGrayPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4579	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4580	labelChannel: useFixGrayPaletteLabel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4581	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4582	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4583	label: 'Image Display:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4584	name: 'ImageDisplayLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4585	layout: (LayoutFrame 5 0 294 0 227 0 324 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4586	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4587	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4588	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4589	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4590	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4591	name: 'DitherListPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4592	layout: (LayoutFrame 230 0 294 0 -30 1 324 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4593	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4594	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4595	model: ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4596	enableChannel: ditherSymsNotNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4597	menu: ditherList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4598	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4599	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4600	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4601	label: 'Allow Colored/Grayscale Icons'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4602	name: 'AllowColoredGrayscaleIconsCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4603	layout: (LayoutFrame 5 0 334 0 301 0 364 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4604	model: deepIcons
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4607	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4608	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4609	layout: (LayoutFrame 0 0.0 368 0 0 1.0 372 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4610	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4611	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4612	label: 'ClipBoard Encoding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4613	name: 'ClipBoardEncodingLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4614	layout: (LayoutFrame 0 0 383 0 277 0 413 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4615	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4616	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4617	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4618	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4619	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4620	name: 'ClipEncodingListPopUpList'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4621	layout: (LayoutFrame 278 0 383 0 -30 1 413 0)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4622	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4623	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4624	model: clipEncodingListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4625	menu: clipEncodingList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4626	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4627	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4628	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4629	label: 'Max. CopyBuffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4630	name: 'MaxCopyBufferSizeLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4631	layout: (LayoutFrame 0 0 418 0 277 0 448 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4632	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4633	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4634	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4635	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4636	name: 'MaxCopyBufferEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4637	layout: (LayoutFrame 278 0 418 0 373 0 448 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4638	model: maxCopyBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4639	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4640	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4641	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4642	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4643	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4644	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4645	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4646	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4647	name: 'Separator4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4648	layout: (LayoutFrame 0 0.0 454 0 0 1.0 458 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4649	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4650	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4651	label: 'Enable VMWare Drawing Bug Workaround (Limit Number of Buffered Operations)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4652	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4653	layout: (LayoutFrame 5 0 464 0 0 1 486 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4654	activeHelpKey: enableVMWareDrawingBugWorkaround
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4655	model: enableVMWareDrawingBugWorkaround
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4656	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4657	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4658	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4659
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4660	)
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4661	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4662	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4663
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4664	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4665
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4666	basicReadSettings
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4667	self enableVMWareDrawingBugWorkaround value: currentUserPrefs enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4668
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4669	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4670	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4671	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4672	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4673	self sizeY value:screen heightInMillimeter.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4674	self usedWidth value:screen usableWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4675	self usedHeight value:screen usableHeight.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4676	self deepIcons value:screen supportsDeepIcons.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4677
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4678	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4679	self ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4680	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4681	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4682	self clipEncodingListSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4683	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4684	ifAbsent:1).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4685
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4686	"Modified: / 19-11-2013 / 10:25:51 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4687	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4688
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4689	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4690
17005 a0d0b5aa304d #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16992 diff changeset	4691	currentUserPrefs enableVMWareDrawingBugWorkaround:self enableVMWareDrawingBugWorkaround value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4692	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4693
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4694	screen visualType == #PseudoColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4695	self useFixPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4696	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4697	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4698	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4699	Color getColorsRed:4 green:8 blue:4 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4700	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4701	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4702	screen releaseFixColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4703	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4704
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4705	self useFixGrayPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4706	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4707	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4708	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4709	Color getGrayColors:32 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4710	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4711	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4712	screen releaseFixGrayColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4713	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4714	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4715	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4716	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4717	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4718
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4719	screen setUsableWidth:self usedWidth value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4720	screen setUsableHeight:self usedHeight value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4721
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4722	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4723	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4724	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4725	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4726
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4727	WindowGroup activeGroup withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4728	View defaultStyle:(View defaultStyle).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4729	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4730
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	4731	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4732
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4733	"Modified: / 19-11-2013 / 10:26:08 / cg"
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4734	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4735
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4736	restoreUsableExtent
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4737	self usedWidth value:(screen queryWidth).
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4738	self usedHeight value:(screen queryHeight).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4739	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4741	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4743	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745	clipEncodingList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4746	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4750	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4752	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4754	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4756	clipEncodingListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4757	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4758	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4759	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4760	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4765	deepIcons isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4766	deepIcons := screen supportsDeepIcons asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4767	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4774	ditherList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4775	ditherList := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777	^ ditherList.
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	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4782	ditherListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4783	ditherSyms notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4784	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4785	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4786	ditherListSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4787	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4788	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4789	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4790	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4791	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4792
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4793	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4794
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4795	ditherSymsNotNil isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4796	ditherSymsNotNil := ditherSyms notNil asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4797	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4798	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4799	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4800
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4801	enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4802
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4803	enableVMWareDrawingBugWorkaround isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4804	enableVMWareDrawingBugWorkaround := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4805	enableVMWareDrawingBugWorkaround onChangeSend:#updateModifiedChannel to:self.
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4806	].
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4807	^ enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4808
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4809	"Created: / 19-11-2013 / 10:24:42 / cg"
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4810	!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4811
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4812	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4814	isColorMonitor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4815	isColorMonitor := screen hasColors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4816	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4817	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4818	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4819	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4820
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4821	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4822
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4823	maxCopyBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4824	maxCopyBufferSize := (810241024) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4825	maxCopyBufferSize addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4826	maxCopyBufferSize changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4827	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4828	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4829	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4830	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4831
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4832	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4834	monitorList isNil ifTrue:[
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4835	monitorList := (resources array:(sizeInfos collectColumn:1)) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4836	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4837	^ monitorList.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4838
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4839	"Modified: / 22-09-2018 / 11:20:11 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4840	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4841
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4842	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4844	monitorSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4845	monitorSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4846	monitorSelection addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4847	monitorSelection onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4848	monitorSelection changed.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4849	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4850	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4851	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4853	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4855	screenDepthVisualLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4856	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4857	with:screen depth printString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4858	with:screen visualType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4859	with:screen serverVendor) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4860	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4861	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4862	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4863
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4864	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4866	sizeX isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4867	sizeX := screen widthInMillimeter asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4868	sizeX addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4869	sizeX changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4870	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4871	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4872	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4873	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4874
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4875	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4877	sizeY isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4878	sizeY := screen heightInMillimeter asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4879	sizeY addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4880	sizeY changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4881	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4882	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4883	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4884	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4885
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4886	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4887
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4888	useFixGrayPalette isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4889	useFixGrayPalette := screen fixGrayColors notNil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4890	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4891	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4892	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4893	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4894
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4895	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4897	useFixGrayPaletteLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4898	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4899	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4900	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4901	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4903	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4905	useFixPalette isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4906	useFixPalette := screen fixColors notNil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4907	useFixPalette 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	^ useFixPalette.
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	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4914	useFixPaletteLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4915	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4916	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4917	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4918	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4919
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4920	usedHeight
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4921	usedHeight isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4922	usedHeight := screen usableHeight asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4923	usedHeight addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4924	usedHeight changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4925	usedHeight onChangeSend:#updateModifiedChannel to:self.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4926	].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4927	^ usedHeight.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4928	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4929
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4930	usedWidth
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4931	usedWidth isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4932	usedWidth := screen usableWidth asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4933	usedWidth addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4934	usedWidth changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4935	usedWidth onChangeSend:#updateModifiedChannel to:self.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4936	].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4937	^ usedWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4938	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4939
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4940	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4942	visualIsPseudoColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4943	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4944	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4945	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4946	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4947	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4949	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4951	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4953	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4955	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4956	(sel notNil and:[sel ~~ 0]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4957	sizeInfoEntry := sizeInfos at:sel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4958	sizes := sizeInfoEntry at:2.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4959	self sizeX value:(sizes at:1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4960	self sizeY value:(sizes at:2).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4961	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4962	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4964	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4965	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4966
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4967	sizes := sizeInfos collectColumn:2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4968	idx := sizes findFirst:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4969	((entry at:1) = sizeX value)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4970	and:[((entry at:2) = sizeY value)]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4971	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4972	idx ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4973	self monitorSelection value:idx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4974	].
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4975
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4976	"Modified: / 22-09-2018 / 11:20:19 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4977	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4979	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4980	changedObject == self monitorSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4981	self monitorSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4982	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4983	].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4984	(changedObject == self sizeX or:[changedObject == self sizeY]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4985	self sizeXorYChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4986	^ self.
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	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4990	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4991
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4992	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4993
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4994	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4995	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4996	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4997
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4998	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5000	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5001
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5002	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5003
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5004	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5005
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5006	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5007
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5008	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5009	listOfSizes == #default ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5010	"/ nothing in resource file; offer at least some.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5011	sizeInfos := #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5012	( '11.3'' (235mm x 175mm) LCD' (235 175) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5013	( '17'' (325mm x 245mm)' (325 245) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5014	( '19'' (340mm x 270mm)' (340 270) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5015	( '20'' (350mm x 280mm)' (350 280) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5016	( '21'' (365mm x 285mm)' (365 285) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5017	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5018	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5019	sizeInfos := resources array:listOfSizes.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5020	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5021	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5022	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5023	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5024	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5025	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5026	visual ~~ #TrueColor ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5027	ditherStyles := self class trueColorDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5028	ditherSyms := self class trueColorDitherSyms.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5029	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5030	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5031	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5032
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5033	"Modified: / 08-02-2017 / 00:30:30 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5034	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5036	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5038	hasUnsavedChanges
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5039	self enableVMWareDrawingBugWorkaround value ~~ currentUserPrefs enableVMWareDrawingBugWorkaround ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5040	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5041	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5042	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5043	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5044	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5045	self usedWidth value ~= screen usableWidth ifTrue:[^ true].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5046	self usedHeight value ~= screen usableHeight ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5047
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5048	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5049	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5050	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	5051	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	5052	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	5053	^ false
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5054
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5055	"Modified: / 19-11-2013 / 10:26:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5056	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5057
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5058	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'help specs'!
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5059
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5060	helpSpec
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5061	"This resource specification was automatically generated
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5062	by the UIHelpTool of ST/X."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5063
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5064	"Do not manually edit this!! If it is corrupted,
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5065	the UIHelpTool may not be able to read the specification."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5066
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5067	"
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5068	UIHelpTool openOnClass:AbstractSettingsApplication::EditSettingsAppl
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5069	"
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5070
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5071	<resource: #help>
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5072
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5073	^ super helpSpec addPairsFrom:#(
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5074
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5075	"/#resetToDefault
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5076	"/'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	5077	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5078	"/#changeToHighContrast
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5079	"/'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	5080	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5081	"/#changeToBigFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5082	"/'Change settings for bigger fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5083	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5084	"/#changeToHugeFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5085	"/'Change settings for huge fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5086	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5087	"/#changeToSTXLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5088	"/'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	5089	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5090	"/#changeToSqueakLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5091	"/'Change settings for a Squeak-like look (variable fonts)'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5092	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5093	"/#changeToVisualAgeLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5094	"/'Change settings for a VisualAge-like look (bold variable fonts)'
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5095
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5096	#immediateCodeCompletion
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5097	'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	5098
13499bd0fa9b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13459 diff changeset	5099	#codeCompletionOnControlKey
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5100	'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	5101
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5102	#codeCompletionOnTabKey
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5103	'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	5104
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5105	#codeCompletionViewKeyboardNavigationNeedsModifier
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5106	'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	5107
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5108	#alwaysPasteFileContents
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5109	'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	5110
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5111	#autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5112	'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	5113
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5114	#extendedWordSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5115	'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	5116
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5117	#searchBoxIsModal
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5118	'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	5119
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5120	#selectAllWhenClickingBeyondEnd
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5121	'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	5122
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5123	#showAcceptCancelBar
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5124	'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	5125
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5126	#st80DoubleClickSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5127	'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	5128
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5129	#st80EditMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5130	'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	5131
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5132
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5133	#startTextDragWithCTRL
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5134	'Press CTRL to drag the selected text into another view'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5135
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5136	#tabStops4
13145 cf52caa3b513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13144 diff changeset	5137	'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	5138
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5139	#useNewCodeView2
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5140	'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	5141
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5142	#whitespaceWordSelectMode
16788 c658333e6e72 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16718 diff changeset	5143	'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	5144
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5145	#selectionExtensionModelStandard
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5146	'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	5147
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5148	#selectionExtensionModelTraditional
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5149	'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	5150
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5151	)
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5152
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5153	"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	5154	"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	5155	! !
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5156
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5157	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5158
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5159	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5160	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5161
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5162	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5163	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5164
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5165	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5167	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5168	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5169	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5171	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5172	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5174	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5175	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5176	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5177	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5178	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5180	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5181
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5182	^
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5183	#(FullSpec
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5184	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5185	window:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5186	(WindowSpec
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5187	label: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5188	name: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5189	flags: 1
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5190	min: (Point 10 10)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5191	bounds: (Rectangle 0 0 658 543)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5192	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5193	component:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5194	(SpecCollection
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5195	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5196	(VerticalPanelViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5197	name: 'VerticalPanel1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5198	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5199	horizontalLayout: fit
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5200	verticalLayout: top
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5201	horizontalSpace: 3
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5202	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5203	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5204	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5205	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5206	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5207	label: 'Use the New Code Editor (v2)'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5208	name: 'UserCodeView2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5209	activeHelpKey: useNewCodeView2
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5210	model: useCodeView2InTools
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5211	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5212	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5213	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5214	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5215	label: 'Show Accept/Cancel Bar in Editor'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5216	name: 'ShowAcceptCancelBarInBrowser'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5217	activeHelpKey: showAcceptCancelBar
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5218	model: showAcceptCancelBarInBrowser
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5219	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5220	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5221	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5222	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5223	label: 'SearchBox is Modal'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5224	name: 'SearchBoxModalCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5225	activeHelpKey: searchBoxIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5226	model: searchDialogIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5227	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5228	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5229	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5230	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5231	name: 'Separator6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5232	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5233	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5234	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5235	label: 'Code Completion as you Type'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5236	name: 'CheckBox5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5237	activeHelpKey: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5238	model: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5239	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5240	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5241	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5242	(ViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5243	name: 'Box1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5244	activeHelpKey: codeCompletionOnControlKey
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5245	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5246	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5247	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5248	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5249	label: 'Code Completion on CTRL Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5250	name: 'CheckBox6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5251	layout: (LayoutFrame 0 0 0 0 350 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5252	activeHelpKey: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5253	model: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5254	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5255	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5256	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5257	label: 'On TAB Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5258	name: 'CheckBox7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5259	layout: (LayoutFrame 380 0 0 0 658 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5260	activeHelpKey: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5261	model: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5262	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5263	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5264	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5265
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5266	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5267	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5268	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5269	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5270	label: 'Shift/CTRL for Navigation in Completion List'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5271	name: 'CheckBox8'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5272	activeHelpKey: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5273	model: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5274	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5275	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5276	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5277	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5278	name: 'Separator5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5279	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5280	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5281	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5282	label: 'Tab Stops in Multiples of 4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5283	name: 'TabStopsMultiples4CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5284	activeHelpKey: tabStops4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5285	model: tabsIs4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5286	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5287	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5288	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5289	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5290	name: 'Separator2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5291	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5292	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5293	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5294	label: 'CTRL-Key to Start TextDrag'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5295	name: 'CTRLKeyStTextDragCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5296	activeHelpKey: startTextDragWithCTRL
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5297	model: startTextDragWithControl
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5298	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5299	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5300	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5301	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5302	label: 'Always Paste the Contents when Dropping a File (Do not Ask) '
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5303	name: 'EnforceContentsDropForFiles'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5304	activeHelpKey: alwaysPasteFileContents
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5305	model: enforceContentsDropForFiles
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5306	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5307	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5308	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5309	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5310	name: 'Separator4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5311	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5312	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5313	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5314	label: 'Autoindent (Position Cursor on Return Key in Code Editors)'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5315	name: 'CheckBox3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5316	activeHelpKey: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5317	model: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5318	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5319	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5320	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5321	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5322	label: 'Cursor has Standard Line-End Behavior'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5323	name: 'CursorST80LineEndBehaviorCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5324	activeHelpKey: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5325	model: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5326	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5327	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5328	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5329	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5330	name: 'Separator3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5331	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5332	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5333	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5334	label: 'Select all when Clicking beyond the Text''s End'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5335	name: 'CheckBox2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5336	activeHelpKey: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5337	model: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5338	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5339	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5340	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5341	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5342	label: 'Double Click Select Behavior as in ST80'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5343	name: 'DoubleClickSelectBehaviorST80CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5344	activeHelpKey: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5345	model: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5346	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5347	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5348	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5349	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5350	label: 'Treat Underscore as Letter in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5351	name: 'UnderscoreIsLetterCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5352	activeHelpKey: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5353	model: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5354	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5355	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5356	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5357	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5358	label: 'Any non-Whitespace in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5359	name: 'CheckBox1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5360	activeHelpKey: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5361	model: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5362	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5363	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5364	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5365	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5366	name: 'Separator7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5367	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5368	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5369	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5370	label: 'Traditional ST/X Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5371	name: 'RadioButton1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5372	activeHelpKey: selectionExtensionModelTraditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5373	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5374	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5375	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5376	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5377	select: traditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5378	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5379	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5380	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5381	label: 'Standard Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5382	name: 'RadioButton2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5383	activeHelpKey: selectionExtensionModelStandard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5384	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5385	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5386	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5387	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5388	select: standard
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	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5392
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5393	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5394	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5395	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5396
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5397	)
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5398	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5399	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5400
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5401	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5402
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5403	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5404	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5405
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5406	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5407	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	5408	self enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5409	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5410
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5411	basicSaveSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5412	super basicSaveSettings.
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5413
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5414	currentUserPrefs enforcedDropModeForFiles:
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5415	( self enforceContentsDropForFiles value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5416	ifTrue:[ #text ]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5417	ifFalse:[ nil ] ).
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5418
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5419	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5420	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5421	ListView userDefaultTabPositions:
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5422	(self tabsIs4 value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5423	ifTrue:[ListView tab4Positions]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5424	ifFalse:[ListView tab8Positions]).
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5425
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5426	ListView allSubInstancesDo:[:eachKindOfListView \|
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5427	self tabsIs4 value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5428	ifTrue:[eachKindOfListView setTab4]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5429	ifFalse:[eachKindOfListView setTab8]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5430	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5431	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5432	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5433
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5434	commonAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5435	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5436	#useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5437	#showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5438	#searchDialogIsModal
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5439	#startTextDragWithControl
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5440	#st80EditMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5441	#extendedWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5442	#whitespaceWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5443	#selectAllWhenClickingBeyondEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5444	#autoIndentInCodeView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5445	#immediateCodeCompletion
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5446	#codeCompletionOnControlKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5447	#codeCompletionOnTabKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5448	#codeCompletionViewKeyboardNavigationNeedsModifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5449	#selectionExtensionMode
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5450	)
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5451
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5452	"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	5453	"Modified: / 27-03-2014 / 10:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5454	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5456	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5457
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5458	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5459	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5460	#useCodeView2InTools
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5461	#showAcceptCancelBarInBrowser
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5462	#searchDialogIsModal
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5463	#startTextDragWithControl
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5464	#st80EditMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5465	#extendedWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5466	#whitespaceWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5467	#selectAllWhenClickingBeyondEnd
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5468	#autoIndentInCodeView
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5469	#immediateCodeCompletion
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5470	#codeCompletionOnControlKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5471	#codeCompletionOnTabKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5472	#codeCompletionViewKeyboardNavigationNeedsModifier
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5473	#selectionExtensionMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5474	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5475
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5476	"Modified: / 07-03-2012 / 14:33:40 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5477	"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	5478	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5479
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5480	autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5481	autoIndentInCodeView isNil ifTrue:[
17857 54f9e94faf82 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17842 diff changeset	5482	autoIndentInCodeView := true asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5483	autoIndentInCodeView onChangeSend:#updateModifiedChannel to:self.
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5484	].
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5485	^ autoIndentInCodeView.
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5486	!
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5487
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5488	codeCompletionOnControlKey
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5489	codeCompletionOnControlKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5490	codeCompletionOnControlKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5491	codeCompletionOnControlKey onChangeSend:#updateModifiedChannel to:self.
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5492	].
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5493	^ codeCompletionOnControlKey.
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5494	!
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5495
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5496	codeCompletionOnTabKey
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5497	codeCompletionOnTabKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5498	codeCompletionOnTabKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5499	codeCompletionOnTabKey onChangeSend:#updateModifiedChannel to:self.
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5500	].
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5501	^ codeCompletionOnTabKey.
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5502	!
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5503
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5504	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5505	enforceContentsDropForFiles isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5506	enforceContentsDropForFiles := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5507	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5508	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5509	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5510	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5511
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5512	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5513	extendedWordSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5514	extendedWordSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5515	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5516	].
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5517	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5518	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5519
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5520	immediateCodeCompletion
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5521	immediateCodeCompletion isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5522	immediateCodeCompletion := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5523	immediateCodeCompletion onChangeSend:#updateModifiedChannel to:self.
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5524	].
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5525	^ immediateCodeCompletion.
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5526	!
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5527
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5528	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5529	searchDialogIsModal isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5530	searchDialogIsModal := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5531	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5532	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5533	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5534	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5535
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5536	selectAllWhenClickingBeyondEnd
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5537	selectAllWhenClickingBeyondEnd isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5538	selectAllWhenClickingBeyondEnd := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5539	selectAllWhenClickingBeyondEnd onChangeSend:#updateModifiedChannel to:self.
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5540	].
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5541	^ selectAllWhenClickingBeyondEnd.
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5542
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5543	"Created: / 07-03-2012 / 14:34:08 / cg"
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5544	!
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5545
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5546	selectionExtensionMode
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5547	selectionExtensionMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5548	selectionExtensionMode := #traditional asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5549	selectionExtensionMode onChangeSend:#updateModifiedChannel to:self.
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5550	].
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5551	^ selectionExtensionMode.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5552
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5553	"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	5554	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5555
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5556	selectionExtensionModeEnabled
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5557	"/ 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	5558	"/ Once integrated, this method whould always return true.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5559
14892 67b7cbb80a2f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14833 diff changeset	5560	^ true. "/ EditTextView methodDictionary includesKey: #extendSelectionToX:y:setPrimarySelection:
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5561
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5562	"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	5563	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5564
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5565	showAcceptCancelBarInBrowser
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5566	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5567	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5568	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5569	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5570	^ showAcceptCancelBarInBrowser.
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5571	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5572
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5573	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5574	st80DoubleClickSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5575	st80DoubleClickSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5576	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5577	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5578	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5579	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5580
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	5581	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5582	st80EditingMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5583	st80EditingMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5584	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5585	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5586	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5587	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5589	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5590	startTextDragWithControl isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5591	startTextDragWithControl := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5592	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5594	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5595	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5597	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5598	tabsIs4 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5599	tabsIs4 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5600	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5602	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5603	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5604
12004 1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5605	useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5606	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5607	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5608	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
12004 1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5609
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5610	].
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5611	^ useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5612
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5613	"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	5614	!
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5615
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5616	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5617	whitespaceWordSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5618	whitespaceWordSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5619	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5620	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5621	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5622	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5623
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5624	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5625
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5626	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5627	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5628	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5629
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5630	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5632	hasUnsavedChanges
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5633	self enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5634	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	5635	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5636	ListView userDefaultTabPositions ~= (self tabsIs4 value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5637	ifTrue:[ListView tab4Positions]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5638	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5639	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5640
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5641	^ super hasUnsavedChanges
10900 b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5642
b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5643	"Modified: / 25-11-2011 / 15:23:02 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5644	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5645
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5646	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5647
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5648	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5649
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5650	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5651	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5652
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5653	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5654
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5655	^ #('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	5656	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5657
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5658	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'help specs'!
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5659
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5660	helpSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5661	"This resource specification was automatically generated
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5662	by the UIHelpTool of ST/X."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5663
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5664	"Do not manually edit this!! If it is corrupted,
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5665	the UIHelpTool may not be able to read the specification."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5666
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5667	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5668	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5669	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5670
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5671	<resource: #help>
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5672
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5673	^ super helpSpec addPairsFrom:#(
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5674
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5675	#catchMethodRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5676	'Warn if an existing method from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5677
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5678	#catchClassRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5679	'Warn if an existing class from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5680
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5681	#historyLineInMethods
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5682	'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	5683
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5684	#historyLineInClasses
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5685	'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	5686
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5687	#userNameInHistoryLine
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5688	'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	5689
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5690	#fileInSourceMode
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5691	'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	5692
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5693	#loadBinaryObjectsWhenAutoloading
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5694	'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	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
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5698	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5699
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5700	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5701	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5702
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5703	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5704
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5705	"Modified: / 17-09-2007 / 11:35:08 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5706	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5707
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5708	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5709	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5710	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5711
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5712	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5713	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5714
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5715	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5716	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5717	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5718	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5719	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5720
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5721	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5722
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5723	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5724	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon1'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5725	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5726	@@@@@@@@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	5727	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	5728	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5729
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5730	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5731	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5732	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5735	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5736
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5737	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5738	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5739	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5740	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5741	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5742
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5743	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5744
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5745	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5746	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon3'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5747	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5748	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	5749	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	5750	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	5751	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	5752	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	5753	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	5754	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	5755	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5756
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5757	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5758
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5759	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5760	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5761	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5762
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5763	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5764	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5765
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5766	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5767	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5768	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5769	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5770	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5771
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5772	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5773
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5774	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5775	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5776	name: windowSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5777	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5778	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5779	label: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5780	name: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5781	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5782	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5783	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5784	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5785	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5786	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5787	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5788	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5789	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	5790	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5791	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5792	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5793	verticalSpace: 3
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5794	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5795	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5796	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5797	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5798	label: 'Catch Method Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5799	name: 'CatchMethodRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5800	activeHelpKey: catchMethodRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5801	model: catchMethodRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5802	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5803	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5804	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5805	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5806	label: 'Catch Class Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5807	name: 'CatchClassRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5808	activeHelpKey: catchClassRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5809	model: catchClassRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5810	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5811	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5812	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5813	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5814	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5815	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5816	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5817	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5818	label: 'Keep History Line in Methods'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5819	name: 'KeepHistoryLineinMethods'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5820	activeHelpKey: historyLineInMethods
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5821	model: historyLines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5822	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5823	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5824	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5825	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5826	label: 'Keep Full Class History'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5827	name: 'KeepFullClassHistory'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5828	activeHelpKey: historyLineInClasses
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5829	enableChannel: hasHistoryManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5830	model: fullHistoryUpdate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5831	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5832	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5833	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5834	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5835	name: 'Box2'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5836	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5837	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5838	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5839	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5840	label: 'Username in History:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5841	name: 'Label1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5842	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	5843	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5844	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5845	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5846	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5847	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5848	name: 'EntryField1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5849	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	5850	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5851	model: userNameInHistoryHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5852	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5853	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5854	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5855	acceptOnLostFocus: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5856	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5857	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5858	(LabelSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5859	label: '(empty for login-name)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5860	name: 'Label2'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5861	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	5862	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5863	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5864	adjust: left
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5865	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5866	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5867
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5868	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5869	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5870	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5871	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5872	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5873	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5874	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5875	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5876	name: 'Box1'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5877	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5878	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5879	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5880	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5881	label: 'FileIn Source Mode:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5882	name: 'FileInSourceModeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5883	layout: (AlignmentOrigin 282 0 15 0 1 0.5)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5884	activeHelpKey: fileInSourceMode
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5885	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5886	adjust: right
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5887	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5888	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5889	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5890	name: 'KeepSourceSelection'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5891	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	5892	activeHelpKey: fileInSourceMode
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5893	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5894	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5895	model: keepSourceSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5896	menu: keepSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5897	useIndex: true
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5898	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5899	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5900
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5901	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5902	extent: (Point 600 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5903	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5904	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5905	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5906	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5907	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5908	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5909	label: 'If Present, Load Binary Objects when Autoloading'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5910	name: 'LoadBinaryObjectsWhenAutoloading'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5911	activeHelpKey: loadBinaryObjectsWhenAutoloading
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5912	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5913	model: loadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5914	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5915	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5916	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5917	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5918
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5919	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5920	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5921	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5922
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5923	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5924	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5925	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5926
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5927	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5928
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5929	basicReadSettings
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5930	self keepSourceSelection
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5931	value:(self class keepSourceOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5932	indexOf:ClassCategoryReader sourceMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5933	ifAbsent:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5934	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5935	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5936
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5937	self canLoadBinaries value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5938	self loadBinaries value:Smalltalk loadBinaries
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5939	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5940	self loadBinaries value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5941	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5942
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5943	self hasHistoryManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5944	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5945	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5946	self fullHistoryUpdate value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5947	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5948	self historyLines value:self hasHistoryManager.
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5949	self userNameInHistoryHolder value:(UserPreferences current historyManagerSignature).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5950
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5951	"Modified: / 04-08-2010 / 18:34:15 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5952	"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	5953	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5954
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5955	basicSaveSettings
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5956	\|nm\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5957
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5958	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5959	Class catchClassRedefinitions:(self catchClassRedefs value).
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5960	Class catchMethodRedefinitions:(self catchMethodRedefs value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5961	HistoryManager notNil ifTrue:[
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5962	HistoryManager fullHistoryUpdate:(self fullHistoryUpdate value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5963	self historyLines value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5964	HistoryManager activate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5965	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5966	HistoryManager deactivate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5967	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5968	UserPreferences current historyManagerEnabled:(self historyLines value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5969	nm := (self userNameInHistoryHolder value ? '') withoutSeparators asNilIfEmpty.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5970	UserPreferences current historyManagerSignature:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5971	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5972	Smalltalk loadBinaries:(self loadBinaries value).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5973
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5974	"Modified: / 04-08-2010 / 18:33:20 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5975	"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	5976	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5977
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5978	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5979
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5980	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5981
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5982	canLoadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5983	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5984	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5985	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5986	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5987
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5988	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5989
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5990	catchClassRedefs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5991	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5992	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5993	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5994	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5995	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5996
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5997	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5998
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5999	catchMethodRedefs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6000	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6001	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
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	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6004	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6005
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6006	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6009	self hasHistoryManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6010	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6011	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6012	fullHistoryUpdate := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6013	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6014	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 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	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6017	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6018
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6019	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6020
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6021	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
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
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6024	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6025
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6026	historyLines isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6027	historyLines := self hasHistoryManager asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6028	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6029	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6030	^ historyLines.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6033	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6034
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6035	keepSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6036	keepSource := (resources array:(self class keepSourceStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6037	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6038	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6039	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6040
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6041	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6042
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6043	keepSourceSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6044	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6045	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 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	^ keepSourceSelection.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6050	loadBinaries
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	loadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6053	self canLoadBinaries value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6054	loadBinaries:= Smalltalk loadBinaries asValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6055	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6056	loadBinaries:= false asValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6057	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6058	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6059	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6060	^ loadBinaries.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6061
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6062	"Modified: / 04-08-2010 / 18:34:56 / cg"
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6063	!
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6064
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6065	userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6066
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6067	userNameInHistoryHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6068	userNameInHistoryHolder := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6069	userNameInHistoryHolder onChangeSend:#updateModifiedChannel to:self.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6070	].
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6071	^ userNameInHistoryHolder.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6072
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6073	"Modified: / 04-08-2010 / 18:37:53 / cg"
4387 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
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6076	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6077
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6078	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6079	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6080	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6081
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6082	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6083
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6084	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6085	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6086	((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	6087	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6088	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6089	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6090	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6091	(UserPreferences current historyManagerSignature ~= self userNameInHistoryHolder value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6092	^ false.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6093
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6094	"Modified: / 04-08-2010 / 18:31:55 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6095	"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	6096	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6097
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6098	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'help specs'!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6099
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6100	helpSpec
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6101	"This resource specification was automatically generated
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6102	by the UIHelpTool of ST/X."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6103
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6104	"Do not manually edit this!! If it is corrupted,
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6105	the UIHelpTool may not be able to read the specification."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6106
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6107	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6108	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6109	"
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6110
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6111	<resource: #help>
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6112
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6113	^ super helpSpec addPairsFrom:#(
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6114
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6115	#createFCGIServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6116	'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	6117
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6118	#createServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6119	'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	6120
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6121	#createServerFromSettingsFile
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6122	'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	6123
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6124	#loadWebServerPackage
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6125	'Load the missing webserver class packages'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6126
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6127	#removeAllServers
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6128	'Stop and remove all defined servers'
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	#serverPortNumber
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6131	'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	6132
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6133	)
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6134	! !
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6135
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6136	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6137
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6138	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6139	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6140	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6141
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6142	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6143	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6144
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6145	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6146	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6147	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6148	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6149	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6150
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6151	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6152
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6153	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6154	constantNamed:'AbstractSettingsApplication::HTTPStartServerSettingsApplication defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6155	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6156	@@@@@@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	6157	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	6158	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	6159	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	6160	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	6161	JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6162	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	6163	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	6164	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6165
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6166	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
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	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6169	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6170	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6173	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6174
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6175	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6176	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6177	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6178	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6179	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6180
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6181	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6182
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6183	^
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6184	#(FullSpec
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6185	name: windowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6186	window:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6187	(WindowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6188	label: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6189	name: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6190	min: (Point 10 10)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6191	bounds: (Rectangle 0 0 539 630)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6192	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6193	component:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6194	(SpecCollection
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6195	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6196	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6197	name: 'VerticalPanel1'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6198	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	6199	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6200	verticalLayout: top
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6201	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6202	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6203	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6204	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6205	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6206	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6207	name: 'VerticalPanel4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6208	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6209	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6210	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6211	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6212	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6213	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6214	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6215	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6216	name: 'InfoMessageBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6217	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6218	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6219	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6220	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6221	label: 'Label'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6222	name: 'Label2'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6223	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	6224	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6225	labelChannel: informationLabel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6226	resizeForLabel: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6227	adjust: left
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6228	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6229	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6230	label: 'Load Missing WebServer Packages'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6231	name: 'Button8'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6232	layout: (AlignmentOrigin 0 0.5 0 1 0.5 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6233	activeHelpKey: loadWebServerPackage
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6234	visibilityChannel: hasWebServerClassesNotLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6235	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6236	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6237	model: loadWebServerPackages
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6238	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6239	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6240
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6241	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6242	extent: (Point 539 200)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6243	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6244	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6245	name: 'Separator'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6246	extent: (Point 539 20)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6247	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6248	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6249	name: 'ActionButtonBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6250	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6251	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6252	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6253	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6254	label: 'Port:'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6255	name: 'Label1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6256	layout: (LayoutFrame 5 0 21 0 57 0 49 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6257	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6258	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6259	adjust: right
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6260	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6261	(InputFieldSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6262	name: 'EntryField1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6263	layout: (LayoutFrame 57 0 20 0 128 0 48 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6264	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6265	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6266	model: portNumberChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6267	type: number
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6268	immediateAccept: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6269	acceptOnReturn: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6270	acceptOnTab: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6271	acceptOnLostFocus: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6272	acceptOnPointerLeave: false
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	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6275	name: 'VerticalPanel5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6276	layout: (LayoutFrame 136 0 14 0 -12 1 0 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6277	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6278	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6279	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6280	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6281	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6282	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6283	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6284	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6285	label: 'Create new HTTP Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6286	name: 'Button4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6287	activeHelpKey: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6288	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6289	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6290	model: createServer
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	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6293	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6294	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6295	label: 'Create new FastCGI Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6296	name: 'Button7'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6297	activeHelpKey: createFCGIServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6298	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6299	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6300	model: createFcgiServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6301	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6302	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6303	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6304	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6305	label: 'Create Server from Settings File...'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6306	name: 'Button6'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6307	activeHelpKey: createServerFromSettingsFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6308	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6309	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6310	model: createServerFromFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6311	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6312	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6313	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6314	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6315	label: 'Remove all Servers'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6316	name: 'Button5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6317	activeHelpKey: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6318	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6319	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6320	model: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6321	enableChannel: hasCreatedServerChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6322	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6323	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6324	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6325
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6326	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6327	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6328	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6329
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6330	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6331	extent: (Point 539 160)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6332	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6333	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6334
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6335	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6336	extent: (Point 539 620)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6337	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6338	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6339
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6340	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6341	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6342	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6343
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6344	)
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6345	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6346	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6347
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6348	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6349
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6350	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6351	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6352	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6353
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6354	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6355	CreatedServers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6356	CreatedServers := Set new.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6357	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6358	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6359	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6360
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6361	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6362	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6363	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6364
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6365	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	6366	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6367	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6368
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6369	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6370
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6371	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6372	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6373
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6374	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6375	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6376	self serverClass runningServers
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6377	removeDependent:self;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6378	addDependent:self.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6379	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6380	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6381	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6382
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6383	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6384	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6385
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6386	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6387	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6388
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6389	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6390	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6391
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6392	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6393	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6394
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6395	FCGIServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6396	self warn:'The FCGIServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6397	^ self.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6398	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6399	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6400
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6401	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6402	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6403
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6404	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6405	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6406
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6407	HTTPServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6408	self warn:'The HTTPServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6409	^ self.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6410	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6411	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6412
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6413	"Modified: / 09-04-2011 / 11:15:52 / cg"
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
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6416	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6417	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6418
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6419	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6420
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6421	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6422	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6423	" already have an Item for this application "
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6424	^ self
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6425	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6426	HTTPServerSettingsAppl isNil ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6427	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6428	HTTPServerSettingsAppl isNil ifTrue:[
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6429	self warn:'Missing settings application: HTTPServerSettingsAppl'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6430	^ self.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6431	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6432	].
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6433
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6434	settingsApp := HTTPServerSettingsAppl basicNew.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6435	settingsApp settingsDialog:settingsDialog.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6436	settingsApp httpServerInstance:aServerInstance.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6437	settingsApp defaultSettingsApplication:false.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6438	settingsApp basicInitialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6439	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6440	newItem := settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6441	newItem application:settingsApp.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6442	self createdServerChanged.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6443	settingsDialog expandItemForApplication:self.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6444	settingsApp readSettings.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6445	settingsApp initialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6446
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6447	"Modified: / 09-04-2011 / 11:17:44 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6448	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6449
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6450	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6451
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6452	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6453
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6454	serverClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6455	self warn:'The server class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6456	^ self.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6457	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6458
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6459	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6460	port := self portNumberChannel value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6461	runningServers := serverClass runningServers.
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6462
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6463	runningServers do:[:aServer \|
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6464	aServer port = port asInteger ifTrue:[
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6465	Dialog warn:'There is already a server for port ', port asString.
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6466	^ self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6467	]
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6468	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6469	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6470
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6471	(port = serverClass defaultPort) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6472	newServer := serverClass newServerWithDefaultServiceListOn:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6473	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6474	newServer := serverClass newServerOnPort:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6475	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6476	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6477	self createServerApplicationFor:newServer.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6478	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6479	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6480
5049 3df132763949 instable state penk parents: 5044 diff changeset	6481	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6482	\|serverClass newServer fileName runningServers newServerPort answer\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6483
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6484	serverClass := self serverClass.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6485	fileName := Dialog requestFileName:'Select a Server Settings File'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6486	default:(serverClass settingsFilename)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6487	pattern:'*.xml'.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6488
5049 3df132763949 instable state penk parents: 5044 diff changeset	6489	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6490	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6491	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6492	newServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6493	newServerPort := newServer port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6494	runningServers := serverClass runningServers.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6495	runningServers notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6496	[self hasServerForPort:newServerPort] whileTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6497	answer := Dialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6498	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	6499	initialAnswer:self portNumberChannel value printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6500	answer isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6501	^ self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6502	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6503	newServerPort := Number readFromString:answer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6504	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6505	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6506	newServer port:newServerPort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6507	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6508	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6509	self createServerApplicationFor:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6510	].
5049 3df132763949 instable state penk parents: 5044 diff changeset	6511	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6512
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6513	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	6514	!
3df132763949 instable state penk parents: 5044 diff changeset	6515
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6516	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6517	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6518
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6519	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6520
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6521	(serverClass notNil and:[ serverClass isLoaded ]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6522	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6523	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6524
12570 c9f359cab740 class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 12478 diff changeset	6525	serverToStart := serverClass runningServers asNewSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6526	serverToStart addAll:self class createdServers.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6527	serverToStart isEmpty ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6528	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6529	].
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6530	serverToStart := serverToStart select:[:s \| s port notNil].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6531	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6532	serverToStart do:[:eachServerInstance \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6533	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6534	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6535
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6536	"Modified: / 26-08-2012 / 10:25:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6537	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6538
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6539	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6540	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6541
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6542	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6543	^ serverClass notNil
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6544	and:[ serverClass runningServers
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6545	contains:[:eachServer\| eachServer port = newServerPort]].
7607 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	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6548	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	6549
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6550	loadWebServerPackages
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6551	Smalltalk loadPackage:'stx:goodies/webServer'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6552	Smalltalk loadPackage:'stx:goodies/webServer/htmlTree'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6553	Smalltalk loadPackage:'stx:goodies/webServer/comanche'.
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6554	Smalltalk loadPackage:'stx:goodies/webServer/comanche/stt'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6555	Smalltalk loadPackage:'stx:goodies/webServer/comanche/swiki'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6556	Smalltalk loadPackage:'stx:goodies/webServer/comanche/seaside2_5b4/squeakCompatibility'.
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6557	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6558	self hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6559	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6560
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6561	removeAllServerSubApplications
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6562	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6563
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6564	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6565	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6566
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6567	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6568	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6569
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6570	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6571	serverClass isLoaded ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6572	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6573	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6574	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6575	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6576	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6577
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6578	"Modified: / 25-01-2007 / 16:39:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6579	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6580
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6581	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6582	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6583
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6584	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6585
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6586	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6587	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6588	instances := serverClass runningServers asNewSet.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6589	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6590	collect:[:aApp\| aApp httpServerInstance]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6591	instances := instances select:[:i \| i port notNil].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6592	highestUsedPortNr := instances
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6593	inject:(serverClass defaultPort - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6594	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6595
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6596	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6597	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6598	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6599	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6600	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6601
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6602	"Modified: / 26-08-2012 / 10:26:20 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6603	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6604
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6605	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6606
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6607	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6608	hasCreatedServerChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6609	hasCreatedServerChannel := true asValue.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6610	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6611	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6612	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6613
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6614	hasWebServerClassesLoaded
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6615	^ self hasHTTPServerClass and:[self hasFCGIServerClass].
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6616	!
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6617
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6618	hasWebServerClassesLoadedHolder
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6619	^ BlockValue forLogicalNot:(self hasWebServerClassesNotLoadedHolder)
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6620	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6621
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6622	hasWebServerClassesNotLoadedHolder
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6623	hasWebServerClassesNotLoadedHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6624	hasWebServerClassesNotLoadedHolder := true asValue.
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6625	hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6626	].
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6627	^ hasWebServerClassesNotLoadedHolder.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6628	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6629
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6630	informationLabel
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6631	\|info\|
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6632
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6633	info := resources
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6634	string:'HTTPSTARTINFO'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6635	default:
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6636	'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	6637	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6638
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6639	Once created, select the individual server in the left tree,
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6640	configure its services, and finally start it up.'.
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6641
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6642	self hasHTTPServerClass ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6643	info := info ,
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6644	'\\' withCRs,
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6645	(resources string:'ATTENTION: Disabled because HTTPServer class is missing.') allBold
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6646	].
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6647	^ info
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6648
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6649	"Modified: / 14-05-2012 / 12:35:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6650	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6651
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6652	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6653
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6654	portNumberChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6655	portNumberChannel := ValueHolder new.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6656	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6657	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6658	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6659
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6660	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6661
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6662	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6663
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6664	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6665	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6666	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6667
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6668	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6669	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6670	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6671	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6672
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6673	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6674	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6675
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6676	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6677	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6678	self runningServersChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6679	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6680	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6681	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6682
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6683	"Modified: / 25-01-2007 / 16:38:52 / cg"
4724 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
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6686	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6687
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6688	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6689	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6690	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6691
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6692	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
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	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6695	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6696
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6697	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6698	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6699	serverClass runningServers removeDependent:self.
14066 0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6700	].
0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6701	super release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6702
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6703	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6704	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6705
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6706	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6707
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6708	hasCreatedServer
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6709	"/ settingsDialog isNil ifTrue:[^ false].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6710	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6711	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6712	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6713
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6714	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6715	^ FCGIServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6716
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6717	"Created: / 25-01-2007 / 17:50:14 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6718	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6719
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6720	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6721	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6722
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6723	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6724	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6725
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6726	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6727
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6728	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6729	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6730
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6731	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6732	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6733	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6734	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6735	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6736
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6737	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6738	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6739	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6740
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6741	serverClass
16718 cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6742	"answer the default class for instantiating servers.
cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6743	Note that we may instantiate FCGIServer as well"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6744
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6745	^ HTTPServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6746	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6747
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6748	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6749	^ 'there is no HTTPServer class in the system'
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	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6752	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6753
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6754	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'help specs'!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6755
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6756	helpSpec
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6757	"This resource specification was automatically generated
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6758	by the UIHelpTool of ST/X."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6759
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6760	"Do not manually edit this!! If it is corrupted,
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6761	the UIHelpTool may not be able to read the specification."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6762
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6763	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6764	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6765	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6766
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6767	<resource: #help>
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6768
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6769	^ super helpSpec addPairsFrom:#(
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6770
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6771	#rawKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6772	'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	6773
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6774	#functionKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6775	'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	6776
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6777	#'changeMap'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6778	'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	6779
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6780	#'applyChange'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6781	'Adds the current key-function combination to the keyboard map'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6782
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6783	#saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6784	'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	6785
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6786	)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6787	! !
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6788
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6789	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6790
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6791	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6792	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6793
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6794	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6795	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6796
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6797	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6798
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6799	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6800	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6801	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6803	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6804	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6806	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6807	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6808	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6809	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6810	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6812	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6813
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6814	^
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6815	#(FullSpec
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6816	name: windowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6817	window:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6818	(WindowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6819	label: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6820	name: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6821	min: (Point 10 10)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6822	bounds: (Rectangle 0 0 482 654)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6823	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6824	component:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6825	(SpecCollection
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6826	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6827	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6828	name: 'Text'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6829	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	6830	enableChannel: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6831	model: labelTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6832	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6833	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6834	miniScrollerHorizontal: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6835	miniScrollerVertical: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6836	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6837	hasKeyboardFocusInitially: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6838	postBuildCallback: postBuildHelpLabel:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6839	viewClassName: 'TextView'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6840	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6841	(VariableVerticalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6842	name: 'VariableVerticalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6843	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	6844	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6845	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6846	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6847	(VariableHorizontalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6848	name: 'VariableHorizontalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6849	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6850	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6851	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6852	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6853	name: 'Box2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6854	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6855	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6856	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6857	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6858	label: 'Key'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6859	name: 'Label1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6860	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6861	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6862	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6863	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6864	name: 'RawKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6865	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6866	activeHelpKey: rawKeyList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6867	model: selectedRawKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6868	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6869	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6870	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6871	sequenceList: rawKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6872	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6873	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6874	name: 'Box4'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6875	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6876	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6877	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6878	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6879	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6880	label: 'Modify'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6881	name: 'CheckBox1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6882	layout: (LayoutFrame 0 0 7 0 136 0 29 0)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6883	activeHelpKey: changeMap
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6884	model: changeMapHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6885	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6886	)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6887	(InputFieldSpec
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6888	name: 'EntryField1'
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6889	layout: (LayoutFrame 136 0 7 0 0 1 29 0)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6890	visibilityChannel: changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6891	model: currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6892	acceptOnReturn: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6893	acceptOnTab: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6894	acceptOnPointerLeave: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6895	)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6896	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6897
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6898	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6899	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6900	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6901
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6902	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6903	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6904	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6905	name: 'Box3'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6906	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6907	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6908	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6909	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6910	label: 'Function'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6911	name: 'Label2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6912	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6913	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6914	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6915	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6916	name: 'FunctionKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6917	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6918	activeHelpKey: functionList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6919	model: selectedFunctionKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6920	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6921	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6922	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6923	sequenceList: functionKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6924	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6925	(HorizontalPanelViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6926	name: 'HorizontalPanel1'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6927	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6928	horizontalLayout: fitSpace
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6929	verticalLayout: center
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6930	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6931	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6932	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6933	(ActionButtonSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6934	label: 'Apply'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6935	name: 'Button1'
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6936	activeHelpKey: applyChange
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6937	visibilityChannel: changeMapHolder
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6938	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6939	model: applyMapChange
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6940	extent: (Point 125 22)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6941	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6942	(ActionButtonSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6943	label: 'Save As...'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6944	name: 'Button2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6945	activeHelpKey: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6946	visibilityChannel: changeMapHolder
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6947	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6948	model: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6949	extent: (Point 125 22)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6950	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6951	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6952
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6953	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6954	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6955	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6956
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6957	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6958	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6959	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6960
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6961	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6962	handles: (Any 0.5 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6963	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6964	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6965	name: 'Box1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6966	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6967	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6968	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6969	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6970	label: 'Macro text (if any):'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6971	name: 'MacroTextLabel'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6972	layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6973	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6974	adjust: left
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6975	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6976	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6977	name: 'MacroText'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6978	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	6979	activeHelpKey: macroText
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6980	model: macroTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6981	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6982	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6983	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6984	hasKeyboardFocusInitially: false
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	)
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	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6991
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6992	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6993	handles: (Any 0.5 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6994	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6995	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6996
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6997	)
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6998	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6999	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7001	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7002
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7003	applyMapChange
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7004	\|rawKey function\|
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7005
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7006	rawKey := self currentKeyHolder value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7007	function := self selectedFunctionKey value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7008
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7009	function = (resources string:'* unassigned *') ifTrue:[
16644 1c87adf56e82 #BUGFIX by mawalch mawalch parents: 16629 diff changeset	7010	mappings removeKey:rawKey
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7011	] ifFalse:[
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7012	mappings at:rawKey put:function.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7013	].
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7014	self updateModifiedChannel.
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7015	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7016
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7017	basicReadSettings
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7018	\|screenMap l\|
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7019
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7020	screenMap := Screen current keyboardMap.
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7021	mappings := screenMap species new declareAllFrom: screenMap.
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7022
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7023	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	7024	l := (mappings values asSet collect:[:key \| key asString] as:OrderedCollection) sort.
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7025	l addFirst:(resources string:'* unassigned *').
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7026	self functionKeyList contents:l.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7027
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7028	self changeMapHolder value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7029	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7030
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7031	basicSaveSettings
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7032	self saveMapAs:(Filename applicationDataDirectory construct:'private_keyboard.rc')
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7033	!
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7034
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7035	saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7036	"invoked via save as button"
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7037
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7038	\|fn\|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7039
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7040	fn := Dialog
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7041	requestFileName:'Save private keyboard settings in:'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7042	default:'private_keyboard.rc'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7043	fromDirectory:(Filename applicationDataDirectory).
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7044	fn isEmptyOrNil ifTrue:[ ^ self ].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7045	self saveMapAs:fn asFilename.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7046	!
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7047
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7048	saveMapAs:aFilename
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7049	aFilename writingFileDo:[:s \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7050	s nextPutLine:'\|map\|'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7051	s nextPutLine:'map := Screen current keyboardMap.'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7052	mappings keysAndValuesDo:[:eachKey :eachFunction \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7053	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	7054	].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7055	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7056	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7058	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7059
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7060	changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7061	changeMapHolder isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7062	changeMapHolder := false asValue.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7063	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7064	^ changeMapHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7065	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7066
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7067	currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7068	currentKeyHolder isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7069	currentKeyHolder := nil asValue.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7070	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7071	^ currentKeyHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7072	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7073
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7074	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7075	functionKeyList isNil ifTrue:[
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7076	functionKeyList := List new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7077	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7078	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7079	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7080
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7081	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7082	labelTextHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7083	labelTextHolder := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7084	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7085	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7086	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7087
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7088	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7089	macroTextHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7090	macroTextHolder := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7091	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7092	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7093	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7094
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7095	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7097	rawKeyList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7098	rawKeyList := List new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7099	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7100	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7101	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7102
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7103	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7105	selectedFunctionKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7106	selectedFunctionKey := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7107	selectedFunctionKey addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7108	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7109	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7110	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7111
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7112	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7114	selectedRawKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7115	selectedRawKey := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7116	selectedRawKey addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7117	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7118	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7119	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7121	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7122
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7123	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7124	\|raw\|
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7125
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7126	raw := self selectedRawKey value.
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7127	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	7128
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7129	"Modified: / 11-11-2010 / 06:50:04 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7130	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7131
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7132	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7134	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7136	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7137	(f startsWith:'Cmd') ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7138	f := f copyFrom:4
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7139	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7140	macro := currentUserPrefs functionKeySequences
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7141	at:(f asSymbol) ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7142	macro notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7143	macro := macro asStringCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7144	indent := macro
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7145	inject:99999 into:[:min :element \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7146	\|stripped\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7147
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7148	stripped := element withoutLeadingSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7149	stripped isEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7150	min
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7151	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7152	min min:(element size - stripped size)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7153	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7154	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7155	indent ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7156	macro := macro collect:[:line \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7157	line size > indent ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7158	line copyFrom:indent+1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7159	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7160	line
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7161	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7162	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7163	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7164	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7165	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7166	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7167
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7168	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7169	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7171	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7172	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7173	raw isNil ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7174	raw := mappings keyAtValue:f first.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7175	raw isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7176	raw := mappings keyAtValue:f asSymbol.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7177	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7178	].
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7179	self selectedRawKey value:raw withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7180
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7181	"Modified: / 11-11-2010 / 06:49:56 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7182	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7183
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7184	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7185	changedObject == self selectedFunctionKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7186	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7187	self changeRawKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7188	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7189	self changeMacroText.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7190	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7191	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7192	changedObject == self selectedRawKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7193	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7194	self changeFunctionKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7195	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7196	self currentKeyHolder value:changedObject value.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7197	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7198	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7199	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7200	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7201
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7202	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7203
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7204	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7205	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7206	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7207
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7208	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7209
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7210	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7211
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7212	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7213
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7214	super initialize.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	7215
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7216	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	7217
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7218	"Modified: / 08-02-2017 / 00:30:32 / cg"
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7219	!
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7220
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7221	postBuildHelpLabel:aWidget
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7222	aWidget level:0.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7223	aWidget scrolledView backgroundColor:self window viewBackground.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7224	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7225	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7227	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7229	hasUnsavedChanges
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7230	^ mappings ~= Screen current keyboardMap.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7231	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7232
14377 2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7233	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'font specs'!
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7234
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7235	bigLabelFont
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7236	<resource: #fontSpec>
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7237
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7238	^ Label defaultFont asBold
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7239	! !
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7240
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7241	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'help specs'!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7242
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7243	helpSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7244	"This resource specification was automatically generated
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7245	by the UIHelpTool of ST/X."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7246
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7247	"Do not manually edit this!! If it is corrupted,
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7248	the UIHelpTool may not be able to read the specification."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7249
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7250	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7251	UIHelpTool openOnClass:HTTPServerSettingsAppl
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7252	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7253
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7254	<resource: #help>
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7255
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7256	^ super helpSpec addPairsFrom:#(
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7257
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7258	#useSystemLanguage
16524 ecacacdca483 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	7259	'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	7260
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7261	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7262	! !
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7263
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7264	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7265
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7266	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7267	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7268
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7269	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7270	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7271
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7272	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7273
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7274	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7275	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7276	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7277
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7278	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7279	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7281	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7282	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7283	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7284	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7285	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7286
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7287	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7288
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7289	^
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7290	#(FullSpec
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7291	name: windowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7292	window:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7293	(WindowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7294	label: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7295	name: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7296	min: (Point 10 10)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7297	bounds: (Rectangle 0 0 571 878)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7298	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7299	component:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7300	(SpecCollection
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7301	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7302	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7303	label: 'Current Language:'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7304	name: 'Label1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7305	layout: (LayoutFrame 0 0 0 0 -233 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7306	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7307	labelChannel: currentLanguageLabel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7308	adjust: right
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7309	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7310	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7311	label: 'Label'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7312	name: 'CurrentLang'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7313	layout: (LayoutFrame -233 1 0 0 0 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7314	style: bigLabelFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7315	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7316	labelChannel: currentFlagAndLanguageChannel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7317	adjust: left
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7318	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7319	(TextEditorSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7320	name: 'TextEditor1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7321	layout: (LayoutFrame 0 0 32 0 0 1.0 240 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7322	model: noticeLabelHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7323	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7324	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7325	miniScrollerHorizontal: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7326	autoHideScrollBars: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7327	isReadOnly: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7328	hasKeyboardFocusInitially: false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7329	postBuildCallback: postBuildHelpLabel:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7330	viewClassName: 'TextView'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7331	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7332	(InputFieldSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7333	name: 'EntryField1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7334	layout: (LayoutFrame 2 0.0 240 0 -2 1.0 270 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7335	model: languageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7336	acceptOnReturn: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7337	acceptOnTab: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7338	acceptOnLostFocus: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7339	acceptOnPointerLeave: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7340	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7341	(CheckBoxSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7342	label: 'Use OS Language on Startup'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7343	name: 'CheckBox1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7344	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	7345	activeHelpKey: useSystemLanguage
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7346	model: useSystemLanguageHolder
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7347	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7348	)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7349	(SequenceViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7350	name: 'List1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7351	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	7352	model: languageIndexHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7353	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7354	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7355	doubleClickSelector: doubleClick:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7356	useIndex: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7357	sequenceList: languageListHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7358	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7359	(HorizontalPanelViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7360	name: 'HorizontalPanel1'
15917 8bd56a31147e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15916 diff changeset	7361	layout: (LayoutFrame 0 0 -37 1 0 1 0 1)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7362	horizontalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7363	verticalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7364	horizontalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7365	verticalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7366	component:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7367	(SpecCollection
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7368	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7369	(ActionButtonSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7370	label: 'Reread Language Resources'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7371	name: 'RereadResourcesButton'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7372	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7373	resizeForLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7374	model: rereadResourceFiles
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7375	useDefaultExtent: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7376	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7377	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7378
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7379	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7380	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7381	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7382
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7383	)
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7384	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7385	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7387	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7388
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7389	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7390	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7392	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7393	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7395	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7396
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7397	basicReadSettings
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7398	self useSystemLanguageHolder value:(currentUserPrefs useSystemLanguage).
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7399	self languageIndexHolder value:self currentLanguageIndex.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7400	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7401	self currentFlagAndLanguageChannel value:self currentLanguage.
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7402
314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7403	"Modified: / 24-08-2010 / 18:52:48 / sr"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7404	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7405
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7406	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7407	\|fontPref fontPrefs language oldLanguage languageString territory enc
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7408	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7409
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7410	currentUserPrefs useSystemLanguage:(self useSystemLanguageHolder value).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7411
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7412	self withWaitCursorDo:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7413	languageString := translatedLanguages at:(self languageIndexHolder value).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7414	language := self languageHolder value asString string.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7415	(language includes:$-) ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7416	l := language asCollectionOfSubstringsSeparatedBy:$-.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7417	language := l at:1.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7418	territory := l at:2.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7419	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7420	territory isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7421	territory := language string copyTo:2
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7422	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7423
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7424	"/ check if the new language needs a differently encoded font;
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7425	"/ ask user to switch font and allow cancelation.
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7426	"/ Otherwise, you are left with unreadable menu & button items ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7427
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7428	oldLanguage := UserPreferences current language.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7429	Smalltalk language:language asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7430	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7431
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7432	"/ refetch resources ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7433	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7434	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7435	fontPrefs isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7436	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7437	fontPref isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7438	fontPrefs := #(#'iso10646-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7439	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7440	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7441	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7442	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7443
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7444	"/ 'normalize' names of encodings
18720 527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7445	fontPrefs := fontPrefs
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7446	collect:[:each \| (CharacterEncoder encoderFor:each asLowercase asSymbol ifAbsent:nil)].
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7447	fontPrefs := fontPrefs
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7448	select:[:each \| each notNil and:[each isNullEncoder not]]
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7449	thenCollect:[:each \| each nameOfEncoding].
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7450	fontPrefs isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7451	fontPrefs := #(#'iso10464-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7452	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7453	fontPref := fontPrefs first.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7454
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7455	Smalltalk setLanguage:#en.
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	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7458
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7459	switch := true.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7460	anyWrong := false.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7461	(Array
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7462	with:MenuView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7463	"/ with:ListView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7464	with:EditTextView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7465	with:Button defaultFont)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7466	do:[:fn \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7467	enc := fn encoding.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7468	enc isNil ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7469	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7470	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7471	anyWrong := true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7472	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7473	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7474	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7475	anyWrong ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7476	"/ look if there is one at all.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7477	screen := Screen current.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7478	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7479	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7480	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7481	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7482
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7483	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7484	"/ flush and try again - just in case, the font path has changed.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7485	screen flushListOfAvailableFonts.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7486	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7487	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7488	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7489	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7490	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7491	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7492	(Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7493	confirm:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7494	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	7495	with:fontPref) withCRs)
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	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7498	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7499	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7500	answer := Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7501	confirmWithCancel:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7502	string:'Some font(s) is not %1-encoded.\\Change it ?'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7503	with:fontPref) withCRs
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7504	labels:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7505	array:#('Cancel' 'No' 'Yes'))
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7506	default:3.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7507	answer isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7508	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7509	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7510	answer ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7511	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7512	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7513	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7514	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7515	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7516
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7517	switch ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7518	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7519	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7520	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7521	"/ ResourcePack flushCachedResourcePacks - already done by language-change
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7522	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7523	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7524	switch ifTrue:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7525	(dialog := settingsDialog) notNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7526	dialog reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7527	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7528	NewLauncher current reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7529	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7530	DebugView newDebugger.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7531	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7532	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7533
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7534	"Modified: / 19-10-2006 / 22:17:44 / cg"
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7535	"Modified (comment): / 24-08-2017 / 14:57:24 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7536	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7538	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7539	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7540	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7541
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7542	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7543	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7544	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7545	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7546	self updateForChangedLanguage.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7547	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7548
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7549	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7550	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7551
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7552	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7553	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7554	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7555
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7556	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7557	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	7558	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7559	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7560	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7561	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7562	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7563	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7565	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7566
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7567	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7568	currentFlagAndLanguageChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7569	currentFlagAndLanguageChannel := self currentLanguage asValue.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7570	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7571	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7572	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7573
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7574	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7575	currentLanguageLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7576	currentLanguageLabel := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7577	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7578	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7579	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7580	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7581
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7582	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7583	languageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7584	languageHolder := self currentLanguage asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7585	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7586	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7587	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7588	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7589
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7590	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7591	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7592
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7593	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7594	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7595	self updateModifiedChannel.
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
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7598	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7599	languageIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7600	languageIndexHolder := (self currentLanguageIndex) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7601	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7602	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7603	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7604	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7605
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7606	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7607	languageListHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7608	languageListHolder := self languageList asValue.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7609	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7610	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7611	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7612
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7613	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7614	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7615	noticeLabelHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7616	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7617	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7618	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7619	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7620
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7621	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7622	currentLanguageLabel value: (resources string:'Current Language:')
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
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7625	setNoticeLabel
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7626	noticeLabelHolder
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7627	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7628	!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7629
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7630	useSystemLanguageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7631	useSystemLanguageHolder isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7632	useSystemLanguageHolder := true asValue.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7633	useSystemLanguageHolder onChangeSend:#updateModifiedChannel to:self.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7634	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7635	^ useSystemLanguageHolder.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7636	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7637
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7638	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7639
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7640	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7641	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7642	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7643
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7644	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7645
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7646	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7647	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7648
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7649	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7650	super initialize.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7651
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7652	"Modified: / 08-02-2017 / 00:30:07 / cg"
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7653	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7654
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7655	initializeLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7656	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7657	languages listOfLanguageKeys readLanguagesFile rsc\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7658
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7659	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7660	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7661	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7662	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	7663
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7664	(perLanguageResources notNil
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7665	and:[ (perLanguageResources includesKey:#en) not
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7666	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7667	ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7668	perLanguageResources := nil.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7669	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7670
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7671	perLanguageResources isNil ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7672	perLanguageResources := Dictionary new.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7673
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7674	"/ short languages.rs file present?
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7675	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7676	readLanguagesFile := rsc notNil and:[(rsc at:#languageFileExists ifAbsent:false) == true].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7677
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7678	listOfLanguageKeys do:[:eachLang \|
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7679	savedLanguage := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7680	savedLanguageTerritory := Smalltalk languageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7681	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7682	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7683	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7684
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7685	[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7686	\|rsc lang terr\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7687
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7688	lang := terr := eachLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7689	(lang includes:$_) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7690	terr := lang copyFrom:4.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7691	lang := lang copyTo:2.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7692	].
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7693	Smalltalk setLanguage:lang asSymbol territory:terr asSymbol.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7694	readLanguagesFile ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7695	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7696	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7697	rsc := ResourcePack for:(self class) cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7698	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7699	perLanguageResources at:eachLang asSymbol put:rsc.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7700	] ensure:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7701	Smalltalk setLanguage:savedLanguage territory:savedLanguageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7702	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7703	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7704	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7705	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7706	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7707	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7708
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7709	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7710
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7711	enLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7712	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7713	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7714	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7715
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7716	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7717	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7718	lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7719	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7720	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7721	item
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	item at:1
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	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7726	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7727
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7728	nativeLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7729	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7730	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7731	\|item enLang\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7732
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7733	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7734	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7735	enLang := lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7736	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7737	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7738	enLang := item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7739	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7740	enLang := item at:1
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	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7743	item := (perLanguageResources at:lang asSymbol ifAbsent:enResources) at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7744	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7745
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7746	languages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7747	enLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7748	collect:[:enLang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7749	\|item\|
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	item := resources at:enLang default:enLang.
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	flags :=
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 coll\|
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 := resources at:('FLAG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7760	item notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7761	item
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	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7764	(coll size > 1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7765	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7766	ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7767	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7768	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7769	item := resources string:('LANG_' , lang).
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7770	item isArray ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7771	item at:2
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7772	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7773	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7774	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7775	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7776	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7777	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7778
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7779	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7780	flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7781	collect:[:nm \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7782	\|img d fn\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7783
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7784	nm notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7785	img := Image fromFile:nm.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7786	img isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7787	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7788	(d notNil and:[ (fn := d construct:nm) exists]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7789	img := Image fromFile:fn.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7790	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7791	('LanguageSettings [info]: missing flags file: ',nm) infoPrintCR.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7792	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7793	].
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	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7796	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7797	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7798
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7799
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7800	translatedLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7801	(1 to:languages size)
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7802	collect:[:idx \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7803	\|lang englishLang nativeLang s\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7804
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7805	lang := languages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7806	englishLang := enLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7807	nativeLang := nativeLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7808
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7809	s := nativeLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7810	englishLang ~= nativeLang ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7811	s := s , ' / ' , englishLang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7812	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7813	(lang ~= nativeLang and:[lang ~= englishLang]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7814	s := s , ' / ' , lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7815	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7816	s
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7817	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7818
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7819	languageList := translatedLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7820	with:flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7821	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7822
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7823	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7824	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7825
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7826	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7827	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7828	aWidget scrolledView backgroundColor:self window viewBackground.
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7829	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7830	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7831
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7832	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7833
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7834	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7835	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7836	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7837
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7838	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7839	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7840	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7841
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7842	currentLanguageIndex
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7843	\| lang terr langIdx \|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7844
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7845	lang := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7846	terr := Smalltalk languageTerritory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7847
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7848	(lang ~= terr) ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7849	langIdx := listOfLanguages indexOf:(lang , '-' , terr) ifAbsent:nil.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7850	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7851	langIdx isNil ifTrue:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7852	langIdx := listOfLanguages indexOf:lang ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7853	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7854	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7855	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7856	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7857	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7858
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7859	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7860	langIdx := 1.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7861	]
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7862	]
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7863	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7864	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7865	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7866
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7867	hasUnsavedChanges
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7868	useSystemLanguageHolder value ~= currentUserPrefs useSystemLanguage ifTrue:[^ true].
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7869	^ languageIndexHolder value ~= self currentLanguageIndex
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7870
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7871	"Modified: / 17-10-2006 / 17:51:09 / cg"
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7872	"Modified: / 24-08-2010 / 18:50:11 / sr"
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7873	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7874
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7875	quickSearchStrings
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7876	"keywords to match in the quickSearch.
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7877	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	7878	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7879
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7880	^ super quickSearchStrings
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7881	addAll:#('language' 'english');
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7882	yourself
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7883	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7884
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7885	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'help specs'!
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7886
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7887	helpSpec
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7888	"This resource specification was automatically generated
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7889	by the UIHelpTool of ST/X."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7890
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7891	"Do not manually edit this!! If it is corrupted,
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7892	the UIHelpTool may not be able to read the specification."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7893
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7894	"
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7895	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7896	"
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7897
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7898	<resource: #help>
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7899
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7900	^ super helpSpec addPairsFrom:#(
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7901
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7902	#codeLimit
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7903	'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	7904
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7905	#codeTrigger
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7906	'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	7907
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7908	#compressLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7909	'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	7910
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7911	#fastMoreLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7912	'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	7913
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7914	#igcFreeAmount
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7915	'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	7916
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7917	#igcFreeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7918	'Start incremental background GC whenever freespace drops below this'
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	#igcLimit
13041 f99a2405835e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13010 diff changeset	7921	'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	7922
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7923	#maxOldSpace
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7924	'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	7925
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7926	#methodCodeSizeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7927	'Do not JIT, if an individual method''s code size exceeds this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7928
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7929	#newSpaceSize
16143 93dfa902272a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16125 diff changeset	7930	'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	7931
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7932	#oldIncr
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7933	'Increase oldSpace in chunks of this size'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7934
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7935	#stackLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7936	'Trigger a recursionInterrupt exception if more stack is used by a process'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7937
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7938	)
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7939	! !
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7940
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7941	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7942
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7943	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7944	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7945
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7946	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7947	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7948
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7949	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7950
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7951	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7952	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7953	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7954
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7955	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7956	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7957
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7958	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7959	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7960	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7961	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7962	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7963
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7964	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7965
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7966	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7967	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7968	name: windowSpec
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7969	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7970	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7971	label: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7972	name: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7973	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7974	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7975	bounds: (Rectangle 0 0 705 722)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7976	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7977	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7978	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7979	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7980	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7981	label: 'Label'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7982	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7983	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7984	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7985	labelChannel: warningLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7986	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7987	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7988	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7989	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7990	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7991	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7992	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7993	horizontalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7994	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7995	ignoreInvisibleComponents: true
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7996	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7997	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7998	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7999	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8000	label: 'Limits:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8001	name: 'Label54'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8002	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8003	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8004	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8005	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8006	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8007	name: 'StackLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8008	activeHelpKey: stackLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8009	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8010	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8011	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8012	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8013	label: 'Stack Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8014	name: 'Label38'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8015	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8016	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8017	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8018	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8019	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8020	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8021	name: 'EntryField20'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8022	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8023	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8024	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8025	model: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8026	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8027	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8028	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8029	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8030	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8031	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8032	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8033	label: '(Trigger recursionInterrupt if more stack is used by a process)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8034	name: 'Label39'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8035	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8036	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8037	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8038	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8039	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8040	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8041
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8042	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8043	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8044	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8045	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8046	name: 'NewSpaceSizeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8047	activeHelpKey: newSpaceSize
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8048	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8049	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8050	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8051	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8052	label: 'Size of NewSpace:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8053	name: 'Label44'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8054	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8055	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8056	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8057	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8058	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8059	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8060	name: 'EntryField23'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8061	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8062	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8063	model: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8064	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8065	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8066	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8067	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8068	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8069	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8070	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8071	label: '(Size of Space where new objects are created)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8072	name: 'Label45'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8073	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8074	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8075	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8076	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8077	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8078	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8079
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8080	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8081	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8082	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8083	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8084	name: 'MaximumMemoryLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8085	activeHelpKey: maxOldSpace
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8086	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8087	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8088	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8089	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8090	label: 'Maximum Memory Limit:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8091	name: 'Label46'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8092	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8093	activeHelpKey: maxOldSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8094	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8095	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8096	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8097	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8098	name: 'EntryField24'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8099	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8100	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8101	model: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8102	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8103	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8104	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8105	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8106	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8107	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8108	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8109	label: '(Never allocate more than this amount of memory)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8110	name: 'Label47'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8111	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8112	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8113	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8114	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8115	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8116	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8117
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8118	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8119	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8120	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8121	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8122	name: 'QuickAllocationLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8123	activeHelpKey: fastMoreLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8124	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8125	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8126	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8127	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8128	label: 'Quick Allocation Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8129	name: 'Label26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8130	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8131	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8132	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8133	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8134	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8135	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8136	name: 'EntryField14'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8137	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8138	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8139	model: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8140	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8141	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8142	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8143	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8144	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8145	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8146	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8147	label: '(Quickly allocate more memory (suppress GC) up to this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8148	name: 'Label27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8149	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8150	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8151	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8152	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8153	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8154	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8155
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8156	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8157	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8158	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8159	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8160	name: 'OldspaceIncrementBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8161	activeHelpKey: oldIncr
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8162	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8163	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8164	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8165	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8166	label: 'Oldspace Increment:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8167	name: 'Label34'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8168	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8169	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8170	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8171	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8172	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8173	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8174	name: 'EntryField18'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8175	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8176	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8177	model: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8178	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8179	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8180	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8181	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8182	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8183	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8184	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8185	label: '(Increase oldSpace in chunks of this size)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8186	name: 'Label35'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8187	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8188	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8189	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8190	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8191	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8192	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8193
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8194	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8195	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8196	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8197	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8198	name: 'OldSpaceCompressLimitBox'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8199	activeHelpKey: compressLimit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8200	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8201	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8202	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8203	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8204	label: 'Oldspace Compress Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8205	name: 'Label36'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8206	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8207	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8208	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8209	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8210	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8211	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8212	name: 'EntryField19'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8213	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8214	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8215	model: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8216	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8217	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8218	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8219	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8220	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8221	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8222	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8223	label: '(Use 2-pass compressing GC if > 0 and more memory is in use)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8224	name: 'Label37'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8225	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8226	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8227	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8228	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8229	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8230	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8231
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8232	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8233	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8234	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8235	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8236	name: 'CodeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8237	activeHelpKey: codeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8238	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8239	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8240	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8241	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8242	label: 'Dynamic code Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8243	name: 'Label40'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8244	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8245	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8246	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8247	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8248	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8249	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8250	name: 'EntryField21'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8251	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8252	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8253	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8254	model: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8255	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8256	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8257	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8258	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8259	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8260	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8261	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8262	label: '(Flush dynamic compiled code to stay within this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8263	name: 'Label41'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8264	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8265	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8266	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8267	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8268	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8269	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8270
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8271	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8272	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8273	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8274	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8275	name: 'MethodSizeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8276	activeHelpKey: methodCodeSizeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8277	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8278	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8279	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8280	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8281	label: 'Method Code Size Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8282	name: 'Label52'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8283	layout: (LayoutFrame 0 0 5 0 265 0 25 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8284	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8285	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8286	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8287	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8288	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8289	name: 'EntryField27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8290	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8291	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8292	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8293	model: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8294	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8295	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8296	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8297	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8298	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8299	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8300	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8301	label: '(Do not JIT, if an individual method''s code size exceeds this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8302	name: 'Label53'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8303	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8304	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8305	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8306	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8307	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8308	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8309
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8310	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8311	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8312	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8313	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8314	label: 'Triggers:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8315	name: 'Label55'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8316	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8317	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8318	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8319	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8320	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8321	name: 'IncrementalGCAllocationTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8322	activeHelpKey: igcLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8323	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8324	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8325	collection: (
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: 'Incremental GC Allocation Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8328	name: 'Label48'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8329	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8330	activeHelpKey: igcLimit
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: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8333	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8334	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8335	name: 'EntryField25'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8336	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8337	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8338	model: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8339	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8340	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8341	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8342	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8343	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8344	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8345	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8346	label: '(Start IGC whenever this has been newly allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8347	name: 'Label49'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8348	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8349	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8350	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8351	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8352	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8353	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8354
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8355	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8356	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8357	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8358	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8359	name: 'IncrementalGCFreespaceTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8360	activeHelpKey: igcFreeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8361	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8362	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8363	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8364	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8365	label: 'Incremental GC Freespace Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8366	name: 'Label50'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8367	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8368	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8369	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8370	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8371	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8372	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8373	name: 'EntryField26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8374	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8375	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8376	model: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8377	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8378	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8379	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8380	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8381	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8382	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8383	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8384	label: '(Start IGC whenever freespace drops below this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8385	name: 'Label51'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8386	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8387	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8388	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8389	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8390	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8391	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8392
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8393	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8394	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8395	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8396	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8397	name: 'CodeTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8398	activeHelpKey: codeTrigger
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8399	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8400	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8401	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8402	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8403	label: 'Incremental GC Dynamic Code Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8404	name: 'Label42'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8405	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8406	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8407	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8408	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8409	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8410	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8411	name: 'EntryField22'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8412	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8413	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8414	model: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8415	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8416	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8417	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8418	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8419	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8420	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8421	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8422	label: '(Start incremental GC whenever this amount of code has been allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8423	name: 'Label43'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8424	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8425	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8426	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8427	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8428	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8429	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8430
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8431	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8432	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8433	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8434	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8435	name: 'GCAmountBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8436	activeHelpKey: igcFreeAmount
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8437	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8438	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8439	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8440	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8441	label: 'Incremental GC Amount:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8442	name: 'Label32'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8443	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8444	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8445	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8446	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8447	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8448	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8449	name: 'EntryField17'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8450	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8451	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8452	model: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8453	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8454	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8455	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8456	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8457	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8458	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8459	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8460	label: '(Try to keep this amount for peak requests)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8461	name: 'Label33'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8462	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8463	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8464	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8465	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8466	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8467	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8468
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8469	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8470	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8471	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8472	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8473
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8474	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8475	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8476	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8477
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8478	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8479	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8480	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8482	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8483
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8484	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8485	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8486	readAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8487	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8488
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8489	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8490	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8491	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8492	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8493	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8494	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8495	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8496	self methodCodeSizeLimit value:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8497	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8498
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8499	self stackLimit value:Process defaultMaximumStackSize.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8500
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8501	"Modified: / 12-08-2010 / 15:34:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8502	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8503
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8504	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8505	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8506	writeAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8507	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8508
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8509	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8510	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8511	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8512	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8513	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8514	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8515	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8516	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8517	ObjectMemory codeSizeLimitForDynamicCompilation:(self methodCodeSizeLimit value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8518
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8519	Process defaultMaximumStackSize:self stackLimit value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8520
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8521	"Modified: / 12-08-2010 / 15:34:47 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8522	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8524	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8525
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8526	aspectsInObjectMemory
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8527	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8528	newSpaceSize
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8529	maxOldSpace
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8530	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8531	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8532
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8533	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8534
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8535	codeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8536	codeLimit := ObjectMemory dynamicCodeLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8537	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8538	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8539	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8540	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8541
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8542	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8543
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8544	codeTrigger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8545	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8546	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8547	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8548	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8549	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8550
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8551	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8552
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8553	compressLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8554	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8555	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8556	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8557	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8558	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8559
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8560	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8561
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8562	fastMoreLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8563	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8564	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8565	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8566	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8567	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8568
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8569	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8570
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8571	igcFreeAmount isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8572	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8573	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8574	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8575	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8576	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8577
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8578	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8579
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8580	igcFreeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8581	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8582	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8583	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8584	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8585	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8586
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8587	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8588
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8589	igcLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8590	igcLimit := ObjectMemory incrementalGCLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8591	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8592	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8593	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8594	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8595
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8596	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8597
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8598	maxOldSpace isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8599	maxOldSpace := ObjectMemory maxOldSpace asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8600	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8601	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8602	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8603	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8604
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8605	methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8606
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8607	methodCodeSizeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8608	methodCodeSizeLimit := (ObjectMemory codeSizeLimitForDynamicCompilation:-1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8609	methodCodeSizeLimit onChangeSend:#updateModifiedChannel to:self
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8610	].
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8611	^ methodCodeSizeLimit.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8612
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8613	"Created: / 12-08-2010 / 15:31:56 / cg"
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8614	!
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8615
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8616	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8617
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8618	newSpaceSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8619	newSpaceSize := ObjectMemory newSpaceSize asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8620	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8621	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8622	^ newSpaceSize.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8625	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8627	oldIncr isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8628	oldIncr := ObjectMemory oldSpaceIncrement asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8629	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8630	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8631	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8632	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8633
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8634	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8636	stackLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8637	stackLimit := Process defaultMaximumStackSize asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8638	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8639	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8640	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8641	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8643	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8644
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8645	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8646	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8647
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8648	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8650	warningLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8651	warningLabelHolder := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8652	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8653	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8654	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8655
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8656	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8657
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8658	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8659	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8660	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8661
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8662	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8663
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8664	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8665	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8666
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8667	super initialize.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8668	self warningLabelHolder
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8669	value:(StringCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8670	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8671	with:(resources string:'You have been warned.') allBold
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8672	).
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8673
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8674	"Modified: / 08-02-2017 / 00:30:20 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8675	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8677	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8678
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8679	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8680	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8681	hasChangedAspectIn:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8682	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8683
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8684	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8685	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8686	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8687	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8688	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8689	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8690	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8691	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8692	(ObjectMemory codeSizeLimitForDynamicCompilation:-1) ~= self methodCodeSizeLimit value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8693
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8694	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8695	^ false
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8696
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8697	"Modified: / 12-08-2010 / 15:33:12 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8698	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8699
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8700	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8701
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8702	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8703	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8704	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8705
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8706	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8707	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8708
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8709	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8710	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8711	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8712
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8713	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8714
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8715	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8716
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8717	#dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8718	'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	8719
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8720	#smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8721	'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	8722	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8723	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8724
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8725	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'image specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8726
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8727	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8728	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8729	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8730
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8731	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8732	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8733
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8734	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8735	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8736	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8737	Icon flushCachedIcons
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8740	<resource: #image>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8741
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8742	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8743	constantNamed:'AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8744	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8745	@@!!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	8746	]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	8747	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	8748	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8749
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8750	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8751
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8752	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8753	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8754	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8755
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8756	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8757	the UIPainter may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8758
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8759	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8760	UIPainter new openOnClass:AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8761	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8762	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8763	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8764
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8765	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8766
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8767	^
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8768	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8769	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8770	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8771	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8772	label: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8773	name: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8774	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8775	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8776	bounds: (Rectangle 0 0 738 671)
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	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8779	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8780	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8781	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8782	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8783	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	8784	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8785	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8786	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8787	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8788	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8789	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8790	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8791	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8792	label: '.NET Bridge'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8793	name: 'FramedBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8794	activeHelpKey: dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8795	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8796	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8797	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8798	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8799	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8800	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8801	name: 'VerticalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8802	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8803	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8804	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8805	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8806	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8807	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8808	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8809	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8810	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8811	name: 'Box6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8812	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8813	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8814	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8815	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8816	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8817	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8818	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8819	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8820	model: dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8821	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8822	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8823	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8824
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8825	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8826	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8827	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8828	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8829	name: 'Box7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8830	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8831	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8832	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8833	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8834	label: 'Bridge Runs in IDE'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8835	name: 'CheckBox6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8836	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8837	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8838	model: dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8839	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8840	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8841	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8842
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8843	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8844	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8845	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8846	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8847
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	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8851	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8852	name: 'Button1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8853	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8854	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8855	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8856	model: closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8857	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8858	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8859	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8860
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8861	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8862	extent: (Point 738 92)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8863	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8864	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8865	label: 'Smalltalk Bridge Server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8866	name: 'FramedBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8867	activeHelpKey: smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8868	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8869	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8870	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8871	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8872	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8873	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8874	name: 'VerticalPanel4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8875	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8876	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8877	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8878	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8879	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8880	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8881	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8882	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8883	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8884	name: 'Box8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8885	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8886	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8887	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8888	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8889	label: 'Bridge Server Enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8890	name: 'CheckBox7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8891	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	8892	enableChannel: hasSmalltalkBridge
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8893	model: smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8894	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8895	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8896	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8897
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8898	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8899	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8900	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8901	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8902	name: 'Box9'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8903	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8904	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8905	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8906	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8907	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8908	name: 'CheckBox8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8909	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8910	enableChannel: hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8911	model: smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8912	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8913	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8914	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8915
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8916	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8917	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8918	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8919	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8920
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	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8924	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8925	name: 'Button2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8926	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8927	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8928	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8929	model: closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8930	enableChannel: hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8931	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8932	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8933
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8934	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8935	extent: (Point 738 101)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8936	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8937	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8938
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8939	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8940	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8941	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8942
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8943	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8944	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8945	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8946
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8947	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'actions'!
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	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8950	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8951	smtpServerName
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8952	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8953	dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8954	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8955	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8956
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8957	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8958	super basicReadSettings.
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	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8961	self smalltalkBridgeVerbose value:(BRIDGE::SmalltalkBridge verbose).
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	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8966	super basicSaveSettings.
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	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8969	BRIDGE::SmalltalkBridge verbose:(self smalltalkBridgeVerbose value).
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:'aspects'!
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	acceptChannel
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	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8978	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8979	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8980	^ acceptChannel.
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	"Created: / 12-11-2006 / 19:04:09 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8983	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8984
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8985	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8986
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8987	dotNetBridgeRunsInIDE isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8988	dotNetBridgeRunsInIDE := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8989	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
16164 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	^ dotNetBridgeRunsInIDE.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8992	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8993
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8994	dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8995
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8996	dotNetBridgeVerbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8997	dotNetBridgeVerbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8998	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8999	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9000	^ dotNetBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9001	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9002
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9003	hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9004	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9007	hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9008	^ BRIDGE::SmalltalkBridge notNil and:[ BRIDGE::SmalltalkBridge isLoaded ].
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	smalltalkBridgeEnabled
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	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9014	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9015	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
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	^ smalltalkBridgeEnabled.
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	smalltalkBridgeVerbose
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	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9023	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9024	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
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	^ smalltalkBridgeVerbose.
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	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'help'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9030
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9031	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9032	^ 'Launcher/communicationsSettings.html'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9033	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9034
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9035	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'initialization & release'!
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	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9038	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9039
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9040	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9041	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9042
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9043	"Modified: / 08-02-2017 / 00:30:35 / cg"
16164 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	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'queries'!
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	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9049
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9050	^ SmalltalkShareServer notNil
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9053	hasUnsavedChanges
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9054	(super hasUnsavedChanges) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9055
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9056	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9057	BRIDGE::SmalltalkBridge verbose ~= (self smalltalkBridgeVerbose value) ifTrue:[^ true].
16466 59b8495a1650 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 16411 diff changeset	9058	BRIDGE::SmalltalkBridge defaultInstanceOrNil notNil ifTrue:[
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9059	(self smalltalkBridgeEnabled value) ifFalse:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9060	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9061	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
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	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9064	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9065	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9066	^ false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9067	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9068
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9069	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'user actions'!
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	closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9072	DOTNET::DotNet notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9073	DOTNET::DotNet exitAllInstances
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9074	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9075	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9076
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9077	closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9078	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9079	BRIDGE::SmalltalkBridge exitAllInstances
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9080	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9081	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9082
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9083	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9084
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9085	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9086	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9087	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9088
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9089	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9090	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9091
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9092	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9093	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9094	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9095
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9096	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9097
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9098	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9099
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9100	#smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9101	'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	9102
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9103	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9104	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9105
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9106	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9107
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9108	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9109	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9110	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9111
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9112	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9113	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9114
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9115	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9116	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9117	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9118	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9119	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9120
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9121	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9122
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9123	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9124	constantNamed:'AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9125	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4949 a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	9126	@@!!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	9127	]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	9128	P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9129	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	9130	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	9131	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9132
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9133	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9134
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9135	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9136	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9137	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9138
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9139	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9140	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9141
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9142	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9143	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9144	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9145	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9146	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9147
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9148	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9149
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9150	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9151	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9152	name: windowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9153	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9154	(WindowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9155	label: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9156	name: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9157	flags: 1
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9158	min: (Point 10 10)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	9159	bounds: (Rectangle 0 0 738 671)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9160	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9161	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9162	(SpecCollection
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9163	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9164	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9165	name: 'VerticalPanel1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9166	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	9167	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9168	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9169	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9170	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9171	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9172	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9173	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9174	(FramedBoxSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9175	label: 'SMTP (Mail) Server'
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9176	name: 'SMTPServerBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9177	activeHelpKey: smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9178	labelPosition: topLeft
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9179	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9180	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9181	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9182	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9183	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9184	name: 'Box5'
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9185	layout: (LayoutFrame 0 0 10 0 0 1 35 0)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9186	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9187	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9188	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9189	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9190	label: 'SMTP Server:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9191	name: 'SMTPLabel'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9192	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9193	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9194	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9195	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9196	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9197	name: 'SMTPServer'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9198	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9199	model: smtpServerName
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9200	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9201	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9202	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9203	acceptOnPointerLeave: false
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9204	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9205	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9206
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9207	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9208	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9209	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9210
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9211	)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9212	extent: (Point 738 81)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9213	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9214	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9215
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9216	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9217	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9218	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9219
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9220	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9221	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9222	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9223
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9224	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9225
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9226	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9227	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9228	smtpServerName
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9229	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9230	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9231
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9232	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9233
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9234	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9235
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9236	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9237	acceptChannel := TriggerValue new.
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9238	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9239	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9240
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9241	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9242	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9243
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9244	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9245
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9246	smtpServerName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9247	smtpServerName := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9248	smtpServerName onChangeSend:#updateModifiedChannel to:self.
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9249	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9250	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9251
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9252	"Created: / 20-09-2007 / 16:04:39 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9253	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9254
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9255	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9256
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9257	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9258	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9259	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9260
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9261	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9262
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9263	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9264	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9265
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9266	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9267	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9268
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9269	"Modified: / 08-02-2017 / 00:30:26 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9270	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9271
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9272	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9273
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9274	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9275	(super hasUnsavedChanges) ifTrue:[^ true].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9276	^ false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9277
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9278	"Modified: / 20-09-2007 / 16:04:56 / 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
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9281	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'help specs'!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9282
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9283	helpSpec
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9284	"This resource specification was automatically generated
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9285	by the UIHelpTool of ST/X."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9286
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9287	"Do not manually edit this!! If it is corrupted,
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9288	the UIHelpTool may not be able to read the specification."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9289
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9290	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9291	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9292	"
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9293
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9294	<resource: #help>
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9295
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9296	^ super helpSpec addPairsFrom:#(
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9297
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9298	#nativeWidgets
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9299	'Use native widgets if possible (Scrollbars, Checktoggles, etc.)\Experimental and unfinished.\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9300
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9301	#nativeDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9302	'Use native dialogs if possible (WarnBox, InformationBox, etc.)\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9303
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9304	#nativeFileDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9305	'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	9306
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9307	#shadows
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9308	'Simulate shadows under popup menus and dialogs (by greyShading).\No longer needed, as modern systems nowadays do it automatically for us.'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9309
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9310	#cartoonToolTipStyle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9311	'Choose between normal and cartoon mode when showing tooltips.'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9312
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9313	#opaqueVariablePanelResizing
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9314	'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	9315
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9316	#opaqueTableColumnResizing
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9317	'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'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9318
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9319	#lowerOnRightClickInTitle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9320	'When right-clicking into a window''s title/caption area, lower the window.\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9321
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9322	#lowerOnShiftClickInTitle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9323	'When shift-clicking into a window''s title/caption area, lower the window.\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9324
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9325	)
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9326	! !
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9327
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9328	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9330	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9331	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9332	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9333
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9334	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9335	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9336
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9337	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9338	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9339	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9340	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9341	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9342
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9343	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9345	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9346	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9347	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9348	@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.;.;.;.;.;@@@@:<;]!!I&W3.,@@@C+3-6D&Y_N:0@@@N/%
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9349	**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	9350	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	9351	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9352
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9353	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9355	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9360	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9363	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9364	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9365	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9368	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9370	^
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9371	#(FullSpec
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9372	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9373	window:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9374	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9375	label: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9376	name: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9377	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9378	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9379	bounds: (Rectangle 0 0 671 591)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9380	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9381	component:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9382	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9383	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9384	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9385	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9386	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9387	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9388	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9389	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9390	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9391	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9392	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9393	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9394	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9395	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9396	name: 'NativeWidgets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9397	activeHelpKey: nativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9398	enableChannel: displaySupportsNativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9399	model: nativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9400	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9401	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9402	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9403	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9404	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9405	name: 'NativeDialogs'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9406	activeHelpKey: nativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9407	enableChannel: displaySupportsNativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9408	model: nativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9409	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9410	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9411	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9412	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9413	label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9414	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9415	activeHelpKey: nativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9416	enableChannel: displaySupportsNativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9417	model: nativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9418	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9419	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9420	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9421	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9422	name: 'SeparatingSpace1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9423	extent: (Point 661 5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9424	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9425	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9426	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9427	extent: (Point 661 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9428	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9429	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9430	name: 'SeparatingSpace2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9431	extent: (Point 661 5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9432	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9433	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9434	label: 'Shadows under PopUp Views'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9435	name: 'shadows'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9436	activeHelpKey: shadows
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9437	model: shadows
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9438	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9439	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9440	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9441	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9442	label: 'Cartoon Tooltip Style'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9443	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9444	activeHelpKey: cartoonToolTipStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9445	enableChannel: displaySupportsArbitraryShapedViews
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9446	model: cartoonToolTipStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9447	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9448	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9449	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9450	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9451	label: 'Opaque Variable Panel Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9452	name: 'opaqueVariablePanelResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9453	activeHelpKey: opaqueVariablePanelResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9454	model: opaqueVariablePanelResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9455	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9456	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9457	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9458	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9459	label: 'Opaque Table Column Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9460	name: 'opaqueTableColumnResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9461	activeHelpKey: opaqueTableColumnResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9462	model: opaqueTableColumnResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9463	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9464	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9465	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9466	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9467	name: 'SeparatingSpace3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9468	extent: (Point 661 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9469	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9470	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9471	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9472	extent: (Point 661 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9473	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9474	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9475	name: 'SeparatingSpace4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9476	extent: (Point 661 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9477	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9478	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9479	label: 'Right-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9480	name: 'lowerOnRightClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9481	activeHelpKey: lowerOnRightClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9482	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9483	model: lowerOnRightClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9484	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9485	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9486	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9487	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9488	label: 'Shift-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9489	name: 'lowerOnShiftClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9490	activeHelpKey: lowerOnShiftClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9491	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9492	model: lowerOnShiftClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9493	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9494	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9495	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9496	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9497
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9498	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9499	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9500	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9501
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9502	)
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9503	)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9504	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9505
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9506	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9507
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9508	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9509	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9510
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9511	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9512
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9513	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9514	readAspects:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9515	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9516	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9517	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9518	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9519	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9520	from:currentScreen.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9521
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9522	super basicReadSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9523
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9524	self shadows value:PopUpView shadows.
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9525	self cartoonToolTipStyle value: (currentUserPrefs toolTipShapeStyle == #cartoon).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9526
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9527	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9528	self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9529	self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9530	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9531
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9532	"Modified: / 24-08-2010 / 16:43:39 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9533	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9534
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9535	basicSaveSettings
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9536	\|currentScreen mustReopenTools\|
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9537
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9538	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9539
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9540	currentScreen := Screen current.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9541
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9542	self displaySupportsNativeWidgets ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9543	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9544	mustReopenTools := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9545	currentScreen nativeWidgets:self nativeWidgets value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9546	currentUserPrefs nativeWidgets:self nativeWidgets value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9547	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9548	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9549	self displaySupportsNativeDialogs ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9550	currentScreen nativeDialogs:self nativeDialogs value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9551	currentUserPrefs nativeDialogs:self nativeDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9552	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9553	self displaySupportsNativeFileDialogs ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9554	currentScreen nativeFileDialogs:self nativeFileDialogs value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9555	currentUserPrefs nativeFileDialogs:self nativeFileDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9556	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9557
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9558	currentUserPrefs toolTipShapeStyle:((self cartoonToolTipStyle value)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9559	ifTrue:[ #cartoon ]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9560	ifFalse:[ nil ]).
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9561	PopUpView shadows:self shadows value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9562
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9563	super basicSaveSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9564
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	9565	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9566	currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9567	currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9568	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9569
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9570	mustReopenTools ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9571	self reopenToolsAfterChangedViewStyleSetting.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9572	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9573
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9574	"Modified: / 24-08-2010 / 17:27:25 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9575	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9576
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9577	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9578
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9579	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9580	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9581	opaqueVariablePanelResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9582	opaqueTableColumnResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9583	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9584
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9585	"Modified: / 24-08-2010 / 17:26:38 / sr"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9586	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9587
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9588	cartoonToolTipStyle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9589	cartoonToolTipStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9590	cartoonToolTipStyle := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9591	cartoonToolTipStyle onChangeSend:#updateModifiedChannel to:self
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9592	].
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9593	^ cartoonToolTipStyle.
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9594	!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9595
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9596	displaySupportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9597	^ Screen current supportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9598	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9599
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9600	displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9601	^ Screen current supportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9602
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9603	"Modified: / 24-08-2010 / 16:28:58 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9604	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9605
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9606	displaySupportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9607	^ Screen current supportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9608	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9609
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9610	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9611	lowerOnRightClickInTitle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9612	lowerOnRightClickInTitle := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9613	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9614	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9615	^ lowerOnRightClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9616	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9617
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9618	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9619	lowerOnShiftClickInTitle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9620	lowerOnShiftClickInTitle := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9621	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9622	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9623	^ lowerOnShiftClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9624	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9625
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9626	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9627	nativeDialogs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9628	nativeDialogs := Screen current nativeDialogs asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9629	nativeDialogs onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9630	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9631	^ nativeDialogs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9632	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9633
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9634	nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9635	nativeFileDialogs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9636	nativeFileDialogs := Screen current nativeFileDialogs asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9637	nativeFileDialogs onChangeSend:#updateModifiedChannel to:self
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9638	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9639	^ nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9640
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9641	"Modified: / 24-08-2010 / 16:43:08 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9642	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9643
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9644	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9645	nativeWidgets isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9646	nativeWidgets := Screen current nativeWidgets asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9647	nativeWidgets onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9648	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9649	^ nativeWidgets.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9650	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9651
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9652	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9653	opaqueTableColumnResize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9654	opaqueTableColumnResize := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9655	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9656	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9657	^ opaqueTableColumnResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9658	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9659
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9660	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9661	opaqueVariablePanelResize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9662	opaqueVariablePanelResize := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9663	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9664	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9665	^ opaqueVariablePanelResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9666	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9667
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9668	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9669	shadows isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9670	shadows := PopUpView shadows asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9671	shadows onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9672	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9673	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9674	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9675
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9676	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9677
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9678	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9679	^ 'Launcher/miscSettings.html'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9680	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9681
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9682	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9683
13548 dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9684	displaySupportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9685	^ Screen current supportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9686	!
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9687
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9688	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9689	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9690
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9691	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9692
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9693	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9694	hasChangedAspectIn:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9695	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9696	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9697	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9698	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9699	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9700	asComparedTo:currentScreen) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9701
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9702	(super hasUnsavedChanges) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9703
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9704	self shadows value ~= PopUpView shadows ifTrue:[^ true].
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9705	(currentUserPrefs toolTipShapeStyle == #cartoon) ~= cartoonToolTipStyle value ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9706
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9707	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9708	(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9709	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9710	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9711	^ false
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9712
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9713	"Modified: / 24-08-2010 / 16:44:43 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9714	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9715
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9716	isWindowsDisplay
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	9717	^ Screen current isWindowsPlatform
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9718	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9719
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9720	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'help specs'!
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9721
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9722	helpSpec
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9723	"This resource specification was automatically generated
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9724	by the UIHelpTool of ST/X."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9725
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9726	"Do not manually edit this!! If it is corrupted,
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9727	the UIHelpTool may not be able to read the specification."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9728
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9729	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9730	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9731	"
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9732
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9733	<resource: #help>
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9734
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9735	^ super helpSpec addPairsFrom:#(
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9736
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9737	#showAccelerators
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9738	'Show shortcut-key bindings (if any) in popup menus'
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9739
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9740	#focusFollowsMouse
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9741	'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	9742
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9743	#'shouldRememberLastExtent'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9744	'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	9745
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9746	#menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9747	'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	9748
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9749	#mouseWheelFocusFollowsMouse
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9750	'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	9751
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9752	#allowMouseWheelZoom
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9753	'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	9754
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9755	#metaIsMouseWheelZoom
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9756	'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	9757
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9758	#takeFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9759	'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	9760
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9761	#returnFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9762	'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	9763
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9764	#activateOnClick
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9765	'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	9766
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9767	#button2WithAltKey
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9768	'Use with single button mice to get a right-button emulation'
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9769
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9770	#selectOnRightClick
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	9771	'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	9772
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9773	#showRightButtonMenuOnRelease
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	9774	'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	9775
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9776	#hostNameInLabel
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9777	'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	9778
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9779	#autoRaiseOnFocusIn
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9780	'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	9781
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9782	#forceWindowsIntoMonitorBounds
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9783	'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	9784	)
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9785
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9786	"Modified: / 30-08-2017 / 14:57:30 / cg"
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9787	! !
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9788
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9789	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9790
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9791	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9792	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9793	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9794
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9795	"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	9796	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	9797
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9798	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9799	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9800	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9801	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9802	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9803
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9804	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9805
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9806	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9807	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9808	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	9809	@@@@@@@@@@@@@@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	9810	@@@@@@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	9811	@ 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	9812	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	9813	@ 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	9814	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9815	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	9816	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	9817	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9818
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9819	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9820
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9821	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9822	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9823	by the UIPainter of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9824
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9825	"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	9826	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	9827
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9828	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9829	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9830	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9831	AbstractSettingsApplication::MiscDisplaySettingsAppl open
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9832	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9833
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9834	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9835
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9836	^
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9837	#(FullSpec
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9838	name: windowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9839	window:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9840	(WindowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9841	label: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9842	name: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9843	flags: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9844	min: (Point 10 10)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9845	bounds: (Rectangle 0 0 540 662)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9846	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9847	component:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9848	(SpecCollection
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9849	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9850	(VerticalPanelViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9851	name: 'VerticalPanel1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9852	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9853	horizontalLayout: fitSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9854	verticalLayout: topSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9855	horizontalSpace: 5
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9856	verticalSpace: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9857	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9858	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9859	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9860	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9861	label: 'Beeper enabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9862	name: 'beepEnabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9863	visibilityChannel: false
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9864	model: beepEnabled
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9865	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9866	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9867	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9868	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9869	label: 'Show Accelerator Keys in Menus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9870	name: 'showAccelerators'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9871	activeHelpKey: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9872	model: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9873	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9874	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9875	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9876	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9877	name: 'SeparatingSpace1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9878	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9879	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9880	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9881	name: 'Separator1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9882	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9883	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9884	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9885	name: 'SeparatingSpace2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9886	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9887	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9888	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9889	label: 'Keyboard Focus Follows Mouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9890	name: 'focusFollowsMouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9891	activeHelpKey: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9892	model: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9893	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9894	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9895	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9896	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9897	label: 'MouseWheel Focus Follows Mouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9898	name: 'mouseWheelFocusFollowsMouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9899	activeHelpKey: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9900	enableChannel: mouseWheelFocusFollowsMouseEnabled
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9901	model: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9902	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9903	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9904	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9905	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9906	label: 'Zoom with CTRL- or ALT-Mousewheel'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9907	name: 'CheckBox1'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9908	activeHelpKey: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9909	model: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9910	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9911	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9912	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9913	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9914	name: 'SeparatingSpace4'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9915	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9916	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9917	(DividerSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9918	name: 'Separator2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9919	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9920	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9921	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9922	name: 'SeparatingSpace5'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9923	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9924	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9925	(CheckBoxSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9926	label: 'Menu Panels take Focus on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9927	name: 'CheckBox7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9928	activeHelpKey: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9929	model: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9930	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9931	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9932	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9933	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9934	label: 'Views Catch Focus when Mapped'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9935	name: 'takeFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9936	activeHelpKey: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9937	model: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9938	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9939	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9940	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9941	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9942	label: 'Boxes Return Focus to Previously Active View'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9943	name: 'returnFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9944	activeHelpKey: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9945	model: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9946	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9947	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9948	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9949	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9950	label: 'Raise & Activate Windows on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9951	name: 'activateOnClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9952	activeHelpKey: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9953	model: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9954	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9955	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9956	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9957	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9958	label: 'Autoraise Windows on FocusIn'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9959	name: 'CheckBox4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9960	activeHelpKey: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9961	model: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9962	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9963	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9964	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9965	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9966	label: 'Force Windows into Monitor''s Bounds'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9967	name: 'CheckBox2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9968	activeHelpKey: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9969	model: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9970	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9971	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9972	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9973	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9974	label: 'Applications Remember Last Extent as Default'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9975	name: 'CheckBox5'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9976	activeHelpKey: shouldRememberLastExtent
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	9977	model: shouldRememberLastExtentHolder
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9978	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9979	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9980	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9981	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9982	name: 'SeparatingSpace5'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9983	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9984	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9985	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9986	name: 'Separator3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9987	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9988	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9989	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9990	name: 'SeparatingSpace6'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9991	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9992	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9993	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9994	label: 'Select on Right-Button-Press'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9995	name: 'selectOnRightClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9996	activeHelpKey: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9997	model: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9998	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9999	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10000	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10001	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10002	label: 'Menu on Right-Button-Release'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10003	name: 'showRightButtonMenuOnRelease'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10004	activeHelpKey: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10005	model: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10006	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10007	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10008	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10009	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10010	label: 'ALT-Leftclick is Rightclick'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10011	name: 'CheckBox3'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10012	activeHelpKey: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10013	model: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10014	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10015	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10016	)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10017	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10018	name: 'SeparatingSpace7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10019	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10020	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10021	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10022	name: 'Separator4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10023	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10024	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10025	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10026	name: 'SeparatingSpace8'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10027	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10028	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10029	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10030	name: 'Box1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10031	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10032	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10033	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10034	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10035	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10036	name: 'Label1'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10037	layout: (LayoutFrame 0 0 0 0 218 0 20 0)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10038	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10039	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10040	labelChannel: formatHostNameWindowLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10041	adjust: right
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10042	useDefaultExtent: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10043	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10044	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10045	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10046	name: 'Label2'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10047	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	10048	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10049	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10050	labelChannel: formatHostNameWindowLabel1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10051	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10052	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10053	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10054	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10055	name: 'Label3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10056	layout: (LayoutFrame 0 0.59999999999999998 30 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10057	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10058	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10059	labelChannel: formatHostNameWindowLabel2
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10060	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10061	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10062	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10063
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10064	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10065	extent: (Point 530 92)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10066	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10067	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10068	name: 'WindowLabelBox'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10069	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10070	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10071	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10072	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10073	label: 'Window Label Format'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10074	name: 'hostNameInLabelHolder'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10075	layout: (LayoutFrame 0 0 0 0 216 0 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10076	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10077	model: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10078	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10079	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10080	(InputFieldSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10081	name: 'hostNameInLabelEntryField'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10082	layout: (LayoutFrame 218 0 0 0 -5 1 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10083	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10084	enableChannel: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10085	model: newWindowLabelFormat
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10086	immediateAccept: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10087	acceptOnReturn: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10088	acceptOnTab: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10089	acceptOnLostFocus: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10090	acceptOnPointerLeave: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10091	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10092	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10093
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10094	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10095	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10096	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10097	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10098
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10099	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10100	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10101	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10102
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10103	)
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10104	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10105	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10106
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10107	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10108
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10109	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10110	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10111
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10112	self shouldRememberLastExtentHolder value:currentUserPrefs shouldRememberLastExtent.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10113	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10114	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10115	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10116	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	10117	self activateOnClick value:(Screen current activateOnClick:nil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10118	self showAccelerators value:MenuView showAcceleratorKeys.
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10119
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10120	self autoRaiseOnFocusIn value: (currentUserPrefs autoRaiseOnFocusInDelay notNil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10121	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10122
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10123	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10124	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10125
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10126	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10127
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10128	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10129	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10130	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10131	self newWindowLabelFormat value notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10132	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10133	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10134
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10135	Screen allScreens do:[:aDisplay \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10136	aDisplay allViewsDo:[:aView \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10137	\|l\|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10138
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10139	aView isTopView ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10140	l := aView label.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10141	l notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10142	aView label:(l , ' '); label:l. "/ force a change
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10143	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10144	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10145	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10146	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10147	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10148
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10149	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10150
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10151	currentUserPrefs shouldRememberLastExtent:(self shouldRememberLastExtentHolder value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10152	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10153	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10154	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10155
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10156	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10157
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10158	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10159	currentUserPrefs autoRaiseOnFocusInDelay:(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10160	self autoRaiseOnFocusIn value ifTrue:[ 750 ] ifFalse:[nil]).
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10161	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10162
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10163	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10164	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10165
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10166	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10167	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	10168
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10169	newFormat := Dialog
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10170	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10171	withCRs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10172	initialAnswer:newWindowLabelFormat.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10173	newFormat notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10174	newWindowLabelFormat := newFormat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10175	self updateModifiedChannel
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10176	]
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10177
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10178	"Modified: / 17-02-2017 / 08:26:39 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10179	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10180
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10182
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10183	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10184	activateOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10185	activateOnClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10186	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10187	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10188	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10189	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10190
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10191	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10192	allowMouseWheelZoom isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10193	allowMouseWheelZoom := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10194	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10195	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10196	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10197	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10198
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10199	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10200	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10201	beepEnabled
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10202	focusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10203	mouseWheelFocusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10204	showRightButtonMenuOnRelease
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10205	selectOnRightClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10206	allowMouseWheelZoom
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10207	forceWindowsIntoMonitorBounds
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10208	button2WithAltKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10209	menuPanelTakesFocusOnClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10210	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10211
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10212	"Modified: / 31-07-2013 / 18:14:44 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10213	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10214
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10215	autoRaiseOnFocusIn
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10216	autoRaiseOnFocusIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10217	autoRaiseOnFocusIn := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10218	autoRaiseOnFocusIn onChangeSend:#updateModifiedChannel to:self
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10219	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10220	^ autoRaiseOnFocusIn.
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10221	!
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10222
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10223	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10224	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10225	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10226	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10227	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10228	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10229	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10230
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10231	button2WithAltKey
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10232	button2WithAltKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10233	button2WithAltKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10234	button2WithAltKey onChangeSend:#updateModifiedChannel to:self
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10235	].
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10236	^ button2WithAltKey.
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10237	!
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10238
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10239	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10240	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10241	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10242
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10243	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10244	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10245	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10246
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10247	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10248	focusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10249	focusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10250	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10251	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10252	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10253	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10254
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10255	forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10256	forceWindowsIntoMonitorBounds isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10257	forceWindowsIntoMonitorBounds := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10258	forceWindowsIntoMonitorBounds onChangeSend:#updateModifiedChannel to:self
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10259	].
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10260	^ forceWindowsIntoMonitorBounds.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10261
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10262	"Created: / 22-10-2010 / 14:25:40 / cg"
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10263	!
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10264
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10265	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10266	formatHostNameWindowLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10267	formatHostNameWindowLabel :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10268	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10269	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10270	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10271
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10272	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10273	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10274	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10275
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10276	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10277	formatHostNameWindowLabel1 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10278	formatHostNameWindowLabel1 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10279	(resources stringWithCRs:'%1 - Label\%2 - Hostname\%3 - Username')
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10280	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10281	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10282
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10283	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10284	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10285	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10286
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10287	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10288	formatHostNameWindowLabel2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10289	formatHostNameWindowLabel2 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10290	(resources stringWithCRs:'%4 - ProcessId\%5 - TOP-Directory\%6 - TOP-Path').
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10291	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10292	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10293
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10294	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10295	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10296	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10297
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10298	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10299	hostNameInLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10300	hostNameInLabelHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10301	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10302	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10303	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10304	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10305
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10306	menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10307	menuPanelTakesFocusOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10308	menuPanelTakesFocusOnClick := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10309	menuPanelTakesFocusOnClick onChangeSend:#updateModifiedChannel to:self
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10310	].
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10311	^ menuPanelTakesFocusOnClick.
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10312	!
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10313
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10314	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10315	mouseWheelFocusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10316	mouseWheelFocusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10317	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10318	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10319	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10320	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10321
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10322	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10323	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10324	forLogicalNot:(self focusFollowsMouse).
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10325	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10326
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10327	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10328	newWindowLabelFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10329	newWindowLabelFormat := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10330	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10331	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10332	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10333
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10334	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10335	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10336
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10337	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10338	returnFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10339	returnFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10340	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10341	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10342	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10343	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10344
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10345	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10346	selectOnRightClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10347	selectOnRightClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10348	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10349	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10350	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10351	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10352
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10353	shouldRememberLastExtentHolder
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10354	shouldRememberLastExtentHolder isNil ifTrue:[
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10355	shouldRememberLastExtentHolder := true asValue.
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10356	shouldRememberLastExtentHolder onChangeSend:#updateModifiedChannel to:self
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10357	].
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10358	^ shouldRememberLastExtentHolder.
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10359	!
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10361	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10362	showAccelerators isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10363	showAccelerators := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10364	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10365	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10366	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10367	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10368
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10369	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10370	showRightButtonMenuOnRelease isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10371	showRightButtonMenuOnRelease := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10372	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10373	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10374	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10375	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10376
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10377	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10378	takeFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10379	takeFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10380	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10381	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10382	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10383	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10384
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10385	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10386
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10387	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10388	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10389	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10390
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10391	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10393	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10394	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	10395
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10396	self shouldRememberLastExtentHolder value ~= currentUserPrefs shouldRememberLastExtent ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10397	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10398	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10399	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10400	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	10401	self activateOnClick value ~= (Screen current activateOnClick:nil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10402	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10403	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10404	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10405	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10406
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10407	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10408
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10409	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10410	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10411	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10412
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10413	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10414	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10415
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10416	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10417	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10418	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10419
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10420	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10421
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10422	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10423
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10424	#windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10425	'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	10426
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10427	#remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10428	'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	10429
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10430	#smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10431	'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	10432
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10433	#smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10434	'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	10435
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10436	#smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10437	'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	10438
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10439	#smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10440	'Name of host to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10441
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10442	#addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10443	'Add the above hostname to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10444
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10445	#removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10446	'Remove the selected hostname from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10447
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10448	#smallTeamViaXMPP
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10449	'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	10450
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10451	#xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10452	'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	10453
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10454	#xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10455	'Your login username on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10456
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10457	#xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10458	'Your login password on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10459
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10460	#smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10461	'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	10462
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10463	#smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10464	'Name of user to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10465
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10466	#addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10467	'Add the above username to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10468
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10469	#removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10470	'Remove the selected username from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10471	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10472	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10473
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10474	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'image specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10475
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10476	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10477	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10478	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10479
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10480	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10481	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10482
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10483	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10484	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10485	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10486	Icon flushCachedIcons
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10487	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10488
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10489	<resource: #image>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10490
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10491	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10492	constantNamed:'AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10493	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10494	@@!!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	10495	]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	10496	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	10497	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10498
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10499	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10500
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10501	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10502	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10503	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10504
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10505	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10506	the UIPainter may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10507
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10508	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10509	UIPainter new openOnClass:AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10510	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10511	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10512	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10513
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10514	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10515
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10516	^
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10517	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10518	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10519	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10520	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10521	label: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10522	name: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10523	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10524	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10525	bounds: (Rectangle 0 0 751 766)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10526	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10527	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10528	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10529	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10530	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10531	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10532	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	10533	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10534	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10535	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10536	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10537	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10538	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10539	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10540	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10541	label: 'Window migration'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10542	name: 'WindowMicrationSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10543	activeHelpKey: windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10544	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10545	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10546	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10547	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10548	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10549	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10550	name: 'VerticalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10551	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10552	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10553	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10554	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10555	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10556	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10557	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10558	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10559	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10560	name: 'Box2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10561	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10562	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10563	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10564	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10565	label: 'Window migration enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10566	name: 'CheckBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10567	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10568	enableChannel: hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10569	model: windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10570	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10571	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10572	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10573
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10574	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10575	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10576	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10577	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10578	name: 'Box3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10579	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10580	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10581	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10582	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10583	label: 'Password check'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10584	name: 'CheckBox3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10585	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10586	enableChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10587	model: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10588	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10589	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10590	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10591
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10592	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10593	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10594	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10595	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10596	name: 'Box4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10597	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10598	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10599	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10600	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10601	label: 'Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10602	name: 'Label3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10603	layout: (LayoutFrame 0 0 0 0 150 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10604	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10605	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10606	enableDisableColorChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10607	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10608	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10609	name: 'EntryField1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10610	layout: (LayoutFrame 150 0 0 0 400 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10611	enableChannel: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10612	model: windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10613	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10614	acceptOnReturn: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10615	acceptOnTab: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10616	acceptOnLostFocus: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10617	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10618	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10619	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10620
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10621	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10622	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10623	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10624	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10625
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10626	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10627	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10628	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10629
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10630	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10631	extent: (Point 751 120)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10632	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10633	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10634	label: 'Remote Browsing'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10635	name: 'RemoteBrowsingSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10636	activeHelpKey: remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10637	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10638	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10639	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10640	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10641	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10642	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10643	name: 'Box1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10644	layout: (LayoutFrame 0 0 5 0 0 1 30 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10645	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10646	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10647	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10648	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10649	label: 'Remote browsing enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10650	name: 'CheckBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10651	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10652	enableChannel: hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10653	model: remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10654	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10655	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10656	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10657
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10658	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10659	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10660	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10661
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10662	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10663	extent: (Point 751 70)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10664	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10665	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10666	label: 'SmallTeam Change Distribution'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10667	name: 'SmallTeamSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10668	activeHelpKey: smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10669	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10670	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10671	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10672	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10673	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10674	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10675	name: 'enableBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10676	layout: (LayoutFrame 0 0 8 0 0 1 33 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10677	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10678	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10679	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10680	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10681	label: 'SmallTeam Server enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10682	name: 'CheckBox4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10683	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10684	enableChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10685	model: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10686	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10687	activeHelpKey: smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10688	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10689	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10690
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10691	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10692	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10693	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10694	label: 'SmallTeam Hosts:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10695	name: 'smallTeamHostsLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10696	layout: (LayoutFrame 0 0.0 37 0 60 0.25 62 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10697	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10698	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10699	enableDisableColorChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10700	activeHelpKey: smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10701	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10702	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10703	name: 'smallTeamHostsList'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10704	layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10705	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10706	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10707	model: selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10708	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10709	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10710	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10711	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10712	sequenceList: listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10713	activeHelpKey: smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10714	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10715	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10716	label: 'Host:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10717	name: 'hostLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10718	layout: (LayoutFrame 0 0.0 137 0 60 0.25 162 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10719	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10720	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10721	enableDisableColorChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10722	activeHelpKey: smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10723	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10724	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10725	name: 'smallTeamHostEntryField'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10726	layout: (LayoutFrame 64 0.25 138 0 0 1 163 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10727	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10728	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10729	model: smallTeamHostEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10730	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10731	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10732	activeHelpKey: smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10733	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10734	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10735	name: 'HorizontalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10736	layout: (LayoutFrame 64 0.25 168 0 -1 1 193 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10737	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10738	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10739	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10740	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10741	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10742	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10743	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10744	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10745	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10746	name: 'addButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10747	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10748	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10749	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10750	enableChannel: addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10751	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10752	activeHelpKey: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10753	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10754	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10755	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10756	name: 'removeButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10757	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10758	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10759	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10760	enableChannel: removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10761	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10762	activeHelpKey: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10763	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10764	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10765
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10766	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10767	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10768	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10769	label: 'XMPP SmallTeam enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10770	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10771	layout: (LayoutFrame 5 0 197 0 600 0 222 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10772	enableChannel: smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10773	model: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10774	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10775	activeHelpKey: smallTeamViaXMPP
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10776	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10777	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10778	label: 'XMPP Team Members:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10779	name: 'Label4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10780	layout: (LayoutFrame 0 0.0 323 0 60 0.25 348 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10781	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10782	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10783	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10784	activeHelpKey: smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10785	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10786	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10787	name: 'List1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10788	layout: (LayoutFrame 64 0.25 323 0 0 1 417 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10789	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10790	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10791	model: selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10792	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10793	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10794	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10795	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10796	sequenceList: listOfXMPPSmallTeamUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10797	activeHelpKey: smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10798	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10799	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10800	label: 'Member:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10801	name: 'Label5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10802	layout: (LayoutFrame 0 0.0 423 0 60 0.25 448 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10803	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10804	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10805	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10806	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10807	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10808	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10809	name: 'EntryField2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10810	layout: (LayoutFrame 64 0.25 424 0 0 1 449 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10811	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10812	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10813	model: xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10814	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10815	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10816	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10817	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10818	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10819	name: 'HorizontalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10820	layout: (LayoutFrame 64 0.25 455 0 -1 1 480 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10821	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10822	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10823	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10824	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10825	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10826	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10827	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10828	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10829	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10830	name: 'Button3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10831	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10832	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10833	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10834	enableChannel: addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10835	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10836	activeHelpKey: addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10837	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10838	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10839	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10840	name: 'Button4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10841	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10842	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10843	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10844	enableChannel: removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10845	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10846	activeHelpKey: removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10847	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10848	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10849
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10850	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10851	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10852	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10853	label: 'XMPP Server:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10854	name: 'Label6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10855	layout: (LayoutFrame 0 0.0 227 0 60 0.25 252 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10856	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10857	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10858	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10859	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10860	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10861	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10862	name: 'EntryField3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10863	layout: (LayoutFrame 64 0.25 228 0 0 1 253 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10864	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10865	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10866	model: smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10867	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10868	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10869	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10870	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10871	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10872	label: 'XMPP Username:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10873	name: 'Label7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10874	layout: (LayoutFrame 0 0.0 258 0 60 0.25 283 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10875	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10876	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10877	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10878	activeHelpKey: xmppLoginUser
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	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10881	name: 'EntryField4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10882	layout: (LayoutFrame 64 0.25 259 0 0 1 284 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10883	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10884	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10885	model: smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10886	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10887	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10888	activeHelpKey: xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10889	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10890	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10891	label: 'XMPP Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10892	name: 'Label8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10893	layout: (LayoutFrame 0 0.0 288 0 60 0.25 313 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10894	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10895	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10896	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10897	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10898	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10899	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10900	name: 'EntryField5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10901	layout: (LayoutFrame 64 0.25 289 0 0 1 314 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10902	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10903	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10904	model: smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10905	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10906	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10907	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10908	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10909	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10910	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10911
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10912	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10913	extent: (Point 751 521)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10914	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10915	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10916
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10917	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10918	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10919	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10920
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10921	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10922	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10923	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10924
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10925	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10926
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10927	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10928	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10929	smallteamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10930	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10931	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10932	smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10933	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10934	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10935
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10936	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10937	\|pw auth\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10938
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10939	super basicReadSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10940
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10941	SmallTeam notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10942	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10943	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
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	self remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10947	value:(self hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10948	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10949
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10950	self windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10951	value:(self hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10952	and:[ WindowMigrationServer isLoaded
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10953	and:[ WindowMigrationServer serverRunning ]]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10954
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10955
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10956	pw := nil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10957	auth := false.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10958	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10959	pw := WindowMigrationServer password.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10960	auth := self windowMigrationPassword value notNil
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	self windowMigrationPassword value:pw.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10964	self windowMigrationAuthenticate value:auth
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	"Modified: / 20-09-2007 / 16:04:59 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10967	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10968
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10969	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10970	super basicSaveSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10971	self smallTeamServerAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10972	SmallTeam connectedHosts copy do:[:host \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10973	(self listOfSmallTeamHosts includes:host) ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10974	SmallTeam removeHost:host.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10975	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10976	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10977	self listOfSmallTeamHosts do:[:eachHost \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10978	SmallTeam addHost:eachHost.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10979	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10980	self smallTeamServerEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10981	SmallTeam startServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10982	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10983	SmallTeam stopServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10984	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10985	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10986	self smallTeamViaXMPPAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10987	SmallTeamXMPPRoboter listOfXMPPUsers copy do:[:user \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10988	(self listOfXMPPSmallTeamUsers includes:user) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10989	SmallTeamXMPPRoboter removeUser:user.
16164 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	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10992	self listOfXMPPSmallTeamUsers do:[:eachUser \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10993	SmallTeamXMPPRoboter addUser:eachUser.
16164 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	currentUserPrefs smallteamXMPPServer:(self smallteamXMPPServer value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10996	currentUserPrefs smallteamXMPPUser:(self smallteamXMPPUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10997	currentUserPrefs smallteamXMPPPassword:(self smallteamXMPPPassword value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10998	self smallTeamViaXMPPEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10999	SmallTeamXMPPRoboter startServer
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11000	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11001	SmallTeamXMPPRoboter stopServer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11002	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11003	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11004	self hasRemoteBrowsingSupport ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11005	self remoteBrowsingEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11006	SmalltalkShareServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11007	SmalltalkShareServer killAll
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11008	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11009	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11010	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11011	SmalltalkShareServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11012
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11013	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11014	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11015
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11016	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11017	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11018	self warn:'SmalltalkShareServer startup failed (see stderr).'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11019	]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11020	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11021	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11022	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11023	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11024	self windowMigrationAuthenticate value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11025	WindowMigrationServer password:self windowMigrationPassword value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11026	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11027	WindowMigrationServer password:nil
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	self windowMigrationEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11030	WindowMigrationServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11031	WindowMigrationServer stop
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	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11034	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11035	WindowMigrationServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11036
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11037	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11038	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11039
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11040	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11041	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11042	self warn:'WindowMigrationServer startup failed (see stderr).'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11043	]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11044	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11045	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11046	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11047
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11048	"Modified: / 20-09-2007 / 16:05:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11049	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11050
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11051	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'aspects'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11052
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11053	acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11054
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11055	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11056	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11057	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11058	^ acceptChannel.
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	"Created: / 12-11-2006 / 19:04:09 / cg"
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	addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11064	^ self smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11065	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11066
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11067	addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11068	^ self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11069	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11070
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11071	enablePasswordCheck
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	enablePasswordCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11074	self hasWindowMigrationServer ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11075	enablePasswordCheck := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11076	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11077	enablePasswordCheck := self windowMigrationEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11078	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11079	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11080	^ enablePasswordCheck.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11081	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11082
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11083	listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11084
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11085	listOfSmallTeamHosts isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11086	listOfSmallTeamHosts := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11087	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11088	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11089	^ listOfSmallTeamHosts.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11090
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11091	"Created: / 12-11-2006 / 19:06:35 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11092	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11093
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11094	listOfXMPPSmallTeamUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11095
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11096	listOfXMPPSmallTeamUsers isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11097	listOfXMPPSmallTeamUsers := List new.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11098	listOfXMPPSmallTeamUsers onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11099	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11100	^ listOfXMPPSmallTeamUsers.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11101	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11102
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11103	remoteBrowsingEnabled
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	remoteBrowsingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11106	remoteBrowsingEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11107	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11108	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11109	^ remoteBrowsingEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11110	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11111
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11112	removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11113	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11114	forLogical:self smallTeamServerEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11115	and:(BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11116	with:[:h \| h notEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11117	argument:self selectedSmallTeamHost)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11118
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11119	"Created: / 12-11-2006 / 19:01:42 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11120	"Modified: / 08-03-2007 / 23:02:36 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11121	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11122
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11123	removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11124	^ BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11125	forLogical:self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11126	and:(BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11127	with:[:h \| h notEmptyOrNil]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11128	argument:self selectedXMPPSmallTeamUser)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11129	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11130
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11131	selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11132
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11133	selectedSmallTeamHost isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11134	selectedSmallTeamHost := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11135	selectedSmallTeamHost onChangeSend:#selectedSmallTeamHostChanged to:self.
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	^ selectedSmallTeamHost.
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	"Created: / 12-11-2006 / 19:11:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11140	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11141
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11142	selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11143
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11144	selectedXMPPSmallTeamUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11145	selectedXMPPSmallTeamUser := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11146	selectedXMPPSmallTeamUser onChangeSend:#selectedXMPPSmallTeamUserChanged to:self.
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	^ selectedXMPPSmallTeamUser.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11149	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11150
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11151	smallTeamHostEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11152
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11153	smallTeamHostEntry isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11154	smallTeamHostEntry := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11155	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
16164 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	^ smallTeamHostEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11158
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11159	"Created: / 12-11-2006 / 19:07:06 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11160	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11161
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11162	smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11163	^ SmallTeam notNil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11164
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11165	"Created: / 12-11-2006 / 18:56:20 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11166	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11167
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11168	smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11169
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11170	smallTeamServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11171	smallTeamServerEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11172	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11173	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11174	^ smallTeamServerEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11175
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11176	"Created: / 12-11-2006 / 18:56:11 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11177	!
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	smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11180	^ SmallTeam notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11181	and:[ JBCClient notNil and:[ SmallTeamXMPPRoboter notNil ] ].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11182	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11183
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11184	smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11185
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11186	smallTeamViaXMPPEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11187	smallTeamViaXMPPEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11188	smallTeamViaXMPPEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11189	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11190	^ smallTeamViaXMPPEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11191	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11192
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11193	smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11194
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11195	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11196	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11197	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11198	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11199	^ smalltalkBridgeEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11200	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11201
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11202	smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11203
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11204	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11205	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11206	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11207	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11208	^ smalltalkBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11209	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11210
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11211	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11212
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11213	smallteamXMPPPassword isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11214	smallteamXMPPPassword := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11215	smallteamXMPPPassword onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11216	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11217	^ smallteamXMPPPassword.
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	smallteamXMPPServer
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	smallteamXMPPServer isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11223	smallteamXMPPServer := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11224	smallteamXMPPServer onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11225	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11226	^ smallteamXMPPServer.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11227	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11228
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11229	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11230
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11231	smallteamXMPPUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11232	smallteamXMPPUser := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11233	smallteamXMPPUser onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11234	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11235	^ smallteamXMPPUser.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11236	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11237
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11238	windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11239
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11240	windowMigrationAuthenticate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11241	windowMigrationAuthenticate := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11242	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11243	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11244	^ windowMigrationAuthenticate.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11245	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11246
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11247	windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11248
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11249	windowMigrationEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11250	windowMigrationEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11251	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11252	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11253	^ windowMigrationEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11254	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11255
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11256	windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11257
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11258	windowMigrationPassword isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11259	windowMigrationPassword := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11260	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11261	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11262	^ windowMigrationPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11263	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11264
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11265	xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11266
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11267	xmppSmallTeamUserEntry isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11268	xmppSmallTeamUserEntry := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11269	xmppSmallTeamUserEntry onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11270	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11271	^ xmppSmallTeamUserEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11272	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11273
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11274	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'change & update'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11275
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11276	selectedSmallTeamHostChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11277	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11278	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11279
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11280	"Created: / 12-11-2006 / 19:09:49 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11281	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11282
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11283	selectedXMPPSmallTeamUserChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11284	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11285	self xmppSmallTeamUserEntry value:( self selectedXMPPSmallTeamUser value).
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	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help'!
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	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11291	^ 'Launcher/communicationsSettings.html'
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
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11294	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help specs'!
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11295
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11296	helpTextForKey:aKey
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11297	\|normalText hasWindowMigrationServer\|
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11298
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11299	hasWindowMigrationServer := self hasWindowMigrationServer.
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11300
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11301	normalText := super helpTextForKey:aKey.
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11302	aKey == #windowMigration ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11303	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11304	^ normalText , (resources stringWithCRs:'\\Disabled because the windowMigration package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11305	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11306	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11307	aKey == #remoteBrowsing ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11308	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11309	^ normalText , (resources stringWithCRs:'\\Disabled because the remoteBrowsing package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11310	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11311	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11312	(#(smallTeamCommon
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11313	smallTeam smallTeamHosts
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11314	addSmallTeamHost removeSmallTeamHost
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11315	smallTeamViaXMPP
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11316	xmppServer xmppLoginUser xmppLoginPassword
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11317	smallTeamXMPPUsers smallTeamXMPPUserToAdd
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11318	addSmallTeamXMPPUser removeSmallTeamXMPPUser
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11319	) includes:aKey) ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11320	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11321	^ normalText , (resources stringWithCRs:'\\Disabled because the smallTeam package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11322	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11323	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11324	^ normalText
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11325	! !
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11326
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11327	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'initialization & release'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11328
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11329	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11330	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11331
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11332	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11333	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11334
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11335	"Modified: / 08-02-2017 / 00:30:03 / cg"
16164 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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11338	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'queries'!
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	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11341
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11342	^ SmalltalkShareServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11343	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11344
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11345	hasUnsavedChanges
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11346	(super hasUnsavedChanges) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11347	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11348	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11349	(self smallTeamServerAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11350	self smallTeamServerEnabled value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11351	~= (SmallTeam isLoaded and:[ SmallTeam serverRunning ]) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11352	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11353	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11354	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11355	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11356	(self smallTeamViaXMPPAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11357	self smallTeamViaXMPPEnabled value ~= (SmallTeamXMPPRoboter isLoaded
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11358	and:[ SmallTeamXMPPRoboter serverRunning ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11359	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11360	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11361	self listOfXMPPSmallTeamUsers asSet
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11362	~= ((SmallTeamXMPPRoboter listOfXMPPUsers ? #()) asSet) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11363	self smallteamXMPPServer value ~= (currentUserPrefs smallteamXMPPServer) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11364	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11365	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11366	self smallteamXMPPUser value ~= (currentUserPrefs smallteamXMPPUser) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11367	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11368	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11369	self smallteamXMPPPassword value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11370	~= (currentUserPrefs smallteamXMPPPassword) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11371	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11372	(self hasRemoteBrowsingSupport and:[ SmalltalkShareServer isLoaded ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11373	self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11374	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11375	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11376	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11377	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11378	WindowMigrationServer isLoaded ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11379	self windowMigrationEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11380	WindowMigrationServer autoload.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11381	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11382	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11383	(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11384	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11385	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11386	(self windowMigrationPassword value ~= WindowMigrationServer password) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11387	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11388	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11389	(self windowMigrationAuthenticate value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11390	~= self windowMigrationPassword value notNil) ifTrue:[ ^ true ].
16164 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	^ false
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	"Modified: / 20-09-2007 / 16:04:56 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11395	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11396
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11397	hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11398
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11399	^ WindowMigrationServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11400	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11401
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11402	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'user actions'!
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	addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11405	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11406
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11407	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11408
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11409	host := self smallTeamHostEntry value.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11410
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11411	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11412	self listOfSmallTeamHosts add:host
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11413	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11414
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11415	"Modified (format): / 17-02-2017 / 08:33:52 / cg"
16164 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	removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11419	\|host\|
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	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11422
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11423	host := self selectedSmallTeamHost value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11424
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11425	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11426	self selectedSmallTeamHost value:nil.
17939 128b51c94f39 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17904 diff changeset	11427	self listOfSmallTeamHosts remove:host ifAbsent:[ self beep ].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11428	self smallTeamHostEntry value:''.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11429	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11430
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11431	"Modified: / 17-02-2017 / 08:33:29 / cg"
16164 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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11434	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11435
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11436	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11437	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11438
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11439	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11440	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11441
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11442	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11443
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11444	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11445	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11446	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11447
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11448	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11449	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11450
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11451	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11452	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11453	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11454	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11455	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11456
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11457	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11458
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	11459	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11460	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11461	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11462	window:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11463	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11464	label: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11465	name: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11466	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11467	bounds: (Rectangle 0 0 600 550)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11468	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11469	component:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11470	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11471	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11472	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11473	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11474	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	11475	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11476	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11477	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11478	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11479	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11480	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11481	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11482	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11483	label: 'ACSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11484	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11485	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11486	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11487	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11488	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11489	name: 'Box1a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11490	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11491	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11492	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11493	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11494	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11495	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11496	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11497	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11498	model: osiACSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11499	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11501	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11502
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11503	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11504	extent: (Point 600 27)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11505	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11506	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11507	name: 'Box1b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11508	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11509	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11510	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11511	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11512	label: 'Log Connections'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11513	name: 'CheckBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11514	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11515	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11516	model: osiACSEConnectionLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11517	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11518	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11519	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11520
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11521	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11522	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11523	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11524	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11525	name: 'Box1c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11526	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11527	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11528	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11529	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11530	label: 'Log Data Transfer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11531	name: 'CheckBox14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11532	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11533	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11534	model: osiACSEDataLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11535	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11536	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11537	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11538
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11539	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11540	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11541	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11542	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11543	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11544	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11545	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11546	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11547	label: 'ROSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11548	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11549	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11550	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11551	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11552	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11553	name: 'Box4a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11554	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11555	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11556	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11557	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11558	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11559	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11560	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11561	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11562	model: osiROSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11563	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11564	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11565	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11566
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11567	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11568	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11569	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11570	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11571	name: 'Box4b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11572	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11573	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11574	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11575	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11576	label: 'Log Invoactions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11577	name: 'CheckBox16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11578	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11579	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11580	model: osiROSEInvokationLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11581	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11582	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11583	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11584
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11585	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11586	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11587	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11588	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11589	name: 'Box4c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11590	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11591	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11592	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11593	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11594	label: 'Log Responses'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11595	name: 'CheckBox20'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11596	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11597	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11598	model: osiROSEResponseLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11599	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11600	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11601	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11602
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11603	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11604	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11605	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11606	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11607	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11608	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11609	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11610	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11611	label: 'CMISE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11612	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11613	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11614	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11615	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11616	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11617	name: 'Box7a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11618	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11619	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11620	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11621	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11622	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11623	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11624	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11625	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11626	model: osiCMISEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11627	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11628	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11629	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11630
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11631	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11632	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11633	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11634	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11635	name: 'Box7b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11636	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11637	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11638	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11639	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11640	label: 'Log Messages'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11641	name: 'CheckBox22'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11642	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11643	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11644	model: osiCMISEMessageLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11645	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11646	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11647	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11648
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11649	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11650	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11651	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11652	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11653
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11654	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11655	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11656	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11657
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11658	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11659	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11660	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11661
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11662	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11663
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11664	basicReadSettings
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11665	self updateOSIPackagePresentHolders.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11666	self osiACSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11667	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11668	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11669	self osiACSEDataLogging value:OSI::ACSE dataLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11670	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11671	self osiROSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11672	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11673	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11674	self osiROSEResponseLogging value:OSI::ROSE responseLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11675	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11676	self osiCMISEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11677	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11678	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11679	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11680	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11681
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11682	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11683
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11684	self osiACSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11685	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11686	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11687	OSI::ACSE dataLogging:self osiACSEDataLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11688	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11689	self osiROSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11690	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11691	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11692	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11693	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11694	self osiCMISEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11695	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11696	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11697	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11698	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11699
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11700	updateOSIPackagePresentHolders
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11701	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11702	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11703	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11704	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11705
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11706	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11707
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11708	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11709	osiACSEConnectionLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11710	osiACSEConnectionLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11711	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11712	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11713	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11714
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11715	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11716
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11717	osiACSEDataLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11718	osiACSEDataLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11719	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11720	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11721	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11722
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11723	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11724	osiACSEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11725	osiACSEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11726	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11727	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11728	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11729
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11730	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11731	osiACSEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11732	osiACSEPresent := OSI::ACSE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11733	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11734	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11735	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11736
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11737	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11738	osiCMISEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11739	osiCMISEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11740	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11741	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11742	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11743
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11744	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11745	osiCMISEMessageLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11746	osiCMISEMessageLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11747	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11748	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11749	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11750
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11751	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11752	osiCMISEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11753	osiCMISEPresent := OSI::CMISE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11754	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11755	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11756	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11757
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11758	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11759	osiROSEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11760	osiROSEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11761	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11762	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11763	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11764
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11765	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11766	osiROSEInvokationLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11767	osiROSEInvokationLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11768	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11769	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11770	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11771
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11772	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11773
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11774	osiROSEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11775	osiROSEPresent := OSI::ROSE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11776	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11777	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11778	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11779
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11780	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11781
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11782	osiROSEResponseLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11783	osiROSEResponseLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11784	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11785	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11786	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11787
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11788	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11789
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11790	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11791	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11792	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11793
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11794	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11795
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11796	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11797	self updateOSIPackagePresentHolders.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11798
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11799	(self osiACSEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11800	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11801	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11802	or:[ self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11803	or:[ self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11804
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11805	(self osiROSEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11806	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11807	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11808	or:[ self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11809	or:[ self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]) ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11810
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11811	(self osiCMISEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11812	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11813	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11814	or:[ self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]])ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11815
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11816	^ false.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11817	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11818
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11819	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'image specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11820
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11821	defaultIcon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11822	<resource: #programImage>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11823
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11824	^ ToolbarIconLibrary packageOpen24x24Icon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11825	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11826
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11827	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'interface specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11828
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11829	windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11830	"This resource specification was automatically generated
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11831	by the UIPainter of ST/X."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11832
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11833	"Do not manually edit this!! If it is corrupted,
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11834	the UIPainter may not be able to read the specification."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11835
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11836	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11837	UIPainter new openOnClass:AbstractSettingsApplication::PackagePathSettingsAppl andSelector:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11838	AbstractSettingsApplication::PackagePathSettingsAppl new openInterface:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11839	AbstractSettingsApplication::PackagePathSettingsAppl open
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11840	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11841
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11842	<resource: #canvas>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11843
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11844	^
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11845	#(FullSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11846	name: windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11847	window:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11848	(WindowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11849	label: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11850	name: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11851	min: (Point 10 10)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11852	bounds: (Rectangle 0 0 659 287)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11853	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11854	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11855	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11856	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11857	(FramedBoxSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11858	label: 'Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11859	name: 'FramedBox1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11860	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11861	labelPosition: topLeft
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11862	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11863	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11864	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11865	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11866	(LabelSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11867	label: 'Folders in Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11868	name: 'Label1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11869	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	11870	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11871	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11872	(SequenceViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11873	name: 'List1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11874	layout: (LayoutFrame 0 0 40 0 0 1 -40 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11875	model: selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11876	hasHorizontalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11877	hasVerticalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11878	useIndex: false
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11879	sequenceList: listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11880	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11881	(HorizontalPanelViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11882	name: 'HorizontalPanel1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11883	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	11884	horizontalLayout: right
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11885	verticalLayout: center
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11886	horizontalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11887	verticalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11888	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11889	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11890	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11891	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11892	label: 'Add...'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11893	name: 'Button1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11894	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11895	model: addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11896	extent: (Point 93 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11897	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11898	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11899	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11900	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11901	label: 'Remove Selected'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11902	name: 'Button2'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11903	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11904	model: removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11905	extent: (Point 144 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11906	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11907	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11908	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11909	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11910
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11911	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11912	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11913	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11914
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11915	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11916	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11917	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11918
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11919	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11920	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11921	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11922
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11923	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'actions'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11924
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11925	addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11926	\|folder\|
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11927
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11928	folder := Dialog requestDirectoryName:'Additional Folder with Packages:'.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11929	folder isEmptyOrNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11930	(self listOfFoldersInPath includes:folder) ifFalse:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11931	self listOfFoldersInPath add:folder.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11932	self updateModifiedChannel.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11933	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11934	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11935
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11936	basicReadSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11937	self listOfFoldersInPath contents:(Smalltalk packagePath).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11938	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11939
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11940	basicSaveSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11941	Smalltalk packagePath:(self listOfFoldersInPath asOrderedCollection).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11942	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11943
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11944	removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11945	self listOfFoldersInPath remove:(self selectedFolder value) ifAbsent:[].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11946	self updateModifiedChannel.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11947	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11948
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11949	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'aspects'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11950
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11951	aspects
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11952	^ #(
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11953	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11954	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11955
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11956	listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11957	listOfFoldersInPath isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11958	listOfFoldersInPath := List new.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11959	listOfFoldersInPath addAll:Smalltalk packagePath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11960	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11961	^ listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11962	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11963
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11964	selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11965	selectedFolder isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11966	selectedFolder := nil asValue.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11967	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11968	^ selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11969	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11970
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11971	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'help'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11972
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11973	helpFilename
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11974	^ 'Launcher/packagePathSettings.html'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11975	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11976
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11977	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'queries'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11978
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11979	hasUnsavedChanges
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11980	self listOfFoldersInPath asOrderedCollection ~= Smalltalk packagePath asOrderedCollection ifTrue:[^ true].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11981	^ false.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11982	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11983
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11984	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11985
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11986	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11987	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11988
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11989	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11990	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11991
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11992	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11993
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11994	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11995	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11996	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11998	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11999	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12001	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12002	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12003	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12004	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12005	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12007	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12008
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12009	^
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12010	#(FullSpec
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12011	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12012	window:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12013	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12014	label: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12015	name: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12016	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12017	min: (Point 10 10)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12018	bounds: (Rectangle 0 0 601 474)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12019	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12020	component:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12021	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12022	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12023	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12024	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12025	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	12026	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12027	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12028	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12029	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12030	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12031	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12032	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12033	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12034	name: 'PrinterSelectBox'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12035	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12036	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12037	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12038	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12039	label: 'Printer Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12040	name: 'PrinterTypeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12041	layout: (LayoutFrame 0 0 5 0 181 0 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12042	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12043	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12044	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12045	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12046	name: 'PrinterTypeComboList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12047	layout: (LayoutFrame 183 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12048	model: printerTypeSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12049	comboList: printerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12050	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12051	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12052	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12053	label: 'Print Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12054	name: 'PrinterCommandLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12055	layout: (LayoutFrame 0 0 38 0 181 0 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12056	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12057	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12058	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12059	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12060	(ComboBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12061	name: 'CommandComboBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12062	layout: (LayoutFrame 183 0 38 0 -5 1 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12063	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12064	enableChannel: printCommandEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12065	model: printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12066	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12067	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12068	comboList: printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12069	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12070	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12071	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12072	label: 'Print to File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12073	name: 'PrinterFileLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12074	layout: (LayoutFrame 0 0 71 0 181 0 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12075	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12076	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12077	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12078	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12079	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12080	name: 'PrinterFileEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12081	layout: (LayoutFrame 183 0 71 0 -5 1 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12082	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12083	model: printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12084	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12085	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12086	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12087	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12088	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12089	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12090
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12091	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12092	extent: (Point 601 108)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12093	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12094	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12095	name: 'FormatBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12096	visibilityChannel: supportsPageFormatSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12097	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12098	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12099	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12100	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12101	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12102	layout: (LayoutFrame 0 0 4 0 0 1 7 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12103	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12104	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12105	label: 'Page Format:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12106	name: 'PageFormatLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12107	layout: (LayoutFrame 0 0 11 0 181 0 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12108	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12109	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12110	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12111	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12112	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12113	name: 'PageFormatPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12114	layout: (LayoutFrame 183 0 11 0 333 0 41 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12115	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12116	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12117	model: pageFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12118	enableChannel: enableFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12119	menu: pageFormatList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12120	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12121	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12122	label: 'Landscape'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12123	name: 'LandscapeCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12124	layout: (LayoutFrame 380 0 11 0 -5 1 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12125	enableChannel: enablelandscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12126	model: landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12127	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12128	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12129	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12130
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12131	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12132	extent: (Point 601 43)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12133	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12134	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12135	name: 'MarginBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12136	visibilityChannel: supportsMarginSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12137	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12138	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12139	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12140	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12141	name: 'Separator5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12142	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12143	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12144	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12145	name: 'VerticalPanel2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12146	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	12147	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12148	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12149	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12150	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12151	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12152	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12153	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12154	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12155	name: 'Box1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12156	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12157	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12158	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12159	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12160	label: 'Top Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12161	name: 'TopMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12162	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12163	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12164	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12165	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12166	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12167	name: 'TopMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12168	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12169	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12170	model: topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12171	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12172	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12173	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12174	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12175	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12176	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12177	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12178	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12179	name: 'PopUpList2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12180	layout: (LayoutFrame -155 1 0 0 -5 1 30 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12181	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12182	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12183	model: selectedUnit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12184	menu: unitList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12185	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12186	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12187	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12188
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12189	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12190	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12191	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12192	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12193	name: 'Box2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12194	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12195	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12196	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12197	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12198	label: 'Left Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12199	name: 'LeftMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12200	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12201	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12202	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12203	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12204	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12205	name: 'LeftMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12206	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12207	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12208	model: leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12209	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12210	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12211	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12212	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12213	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12214	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12215	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12216
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12217	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12218	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12219	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12220	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12221	name: 'Box3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12222	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12223	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12224	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12225	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12226	label: 'Right Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12227	name: 'RightMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12228	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12229	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12230	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12231	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12232	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12233	name: 'RightMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12234	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12235	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12236	model: rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12237	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12238	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12239	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12240	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12241	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12242	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12243	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12244
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12245	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12246	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12247	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12248	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12249	name: 'Box4'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12250	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12251	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12252	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12253	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12254	label: 'Bottom Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12255	name: 'BottomMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12256	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12257	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12258	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12259	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12260	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12261	name: 'BottomMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12262	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12263	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12264	model: bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12265	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12266	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12267	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12268	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12269	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12270	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12271	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12272
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12273	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12274	extent: (Point 601 32)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12275	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12276	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12277
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12278	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12279	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12280	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12281
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12282	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12283	extent: (Point 601 164)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12284	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12285	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12286	name: 'ColorBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12287	visibilityChannel: supportsColorSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12288	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12289	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12290	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12291	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12292	name: 'Separator6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12293	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12294	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12295	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12296	label: 'Color Printer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12297	name: 'ColorPrinterCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12298	layout: (LayoutFrame 183 0 4 0 782 0 34 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12299	enableChannel: enableColorBox
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12300	model: supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12301	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12302	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12303	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12304
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12305	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12306	extent: (Point 601 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12307	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12308	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12309
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12310	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12311	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12312	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12313
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12314	)
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12315	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12316	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12318	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12319
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12320	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12321	Printer notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12322	self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12323	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12324	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12325	topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12326	bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12327	leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12328	rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12329	landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12330	printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12331	printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12332	supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12333	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12334	from:Printer.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12335	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12336
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12337	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer ifAbsent:1).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12338	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12339	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12340
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12341	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12342	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12343
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12344	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12345
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12346	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12347
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12348	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12349	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12350
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12351	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12352	Printer pageFormat:(self pageFormat value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12353	Printer landscape:(self landscape value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12354	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12355	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12356	\| unit \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12357	self selectedUnit value == 2 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12358	unit := #mm
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12359	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12360	unit := #inch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12361	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12362	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12363	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12364	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12365	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	12366	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12367	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12368	Printer supportsColor:self supportsColor value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12369	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12370	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12372	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12373
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12374	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12375
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12376	bottomMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12377	bottomMargin := Printer bottomMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12378	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12379	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12380	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12381	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12382
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12383	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12384
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12385	enableColorBox isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12386	enableColorBox := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12387	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12388	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12389	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12390
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12391	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12392
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12393	enableFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12394	enableFormat := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12395	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12396	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12397	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12398
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12399	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12400
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12401	enableMargins isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12402	enableMargins := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12403	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12404	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12405	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12406
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12407	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12408
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12409	enablelandscape isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12410	enablelandscape := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12411	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12412	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12413	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12414
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12415	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12417	landscape isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12418	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12419	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12420	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12421	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12422
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12423	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12424	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12425
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12426	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12427
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12428	leftMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12429	leftMargin := Printer leftMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12430	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12431	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12432	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12433	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12434
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12435	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12436
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12437	pageFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12438	self pageFormatList notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12439	\| index \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12440	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12441	pageFormat := index asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12442	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12443	pageFormat := 1 asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12444	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12445	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12446	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12447	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12448	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12449	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12450
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12451	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12453	pageFormatList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12454	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12455	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12456	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12457
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12458	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12459	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12460
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12461	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12463	printCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12464	printCommand := Printer printCommand asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12465	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12466	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12467	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12468	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12469
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12470	printCommandEnabled
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12471	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12472	with:[:m \| m isEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12473	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12474
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12475	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12476	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12477
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12478	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12480	printCommandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12481	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12482	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12483	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12484	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12485
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12486	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12487	printFilename isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12488	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12489	printFilename onChangeSend:#updateModifiedChannel to:self
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12490	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12491	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12492
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12493	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12494	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12495
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12496	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12497	printerIsDrivenByCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12498	printerIsDrivenByCommand := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12499	with:[:m \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12500	\|printer\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12501
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12502	printer := self possiblePrinters at:m value ifAbsent:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12503	printer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12504	printer isDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12505	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12506	self breakPoint:#expecco.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12507	false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12508	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12509	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12510	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12511	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12512	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12513
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12514	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12515	"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	12516	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12517
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12518	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12519	printerSupportsPrintingToFile isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12520	printerSupportsPrintingToFile := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12521	with:[:m \| (self possiblePrinters at:m) supportsPrintingToFile ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12522	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12523	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12524	^ printerSupportsPrintingToFile.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12525
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12526	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12527	"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	12528	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12529
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12530	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12531	printerType isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12532	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12533	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12534	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12535	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12536
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12537	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12539
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12540	printerTypeSelection
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12541	\|printerIndex\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12543	printerTypeSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12544	printerIndex := self possiblePrinters identityIndexOf:Printer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12545	printerIndex == 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12546	self possiblePrinters isEmptyOrNil ifTrue:[self error:'no printer'].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12547	printerIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12548	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12549	printerTypeSelection := printerIndex asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12550
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12551	printerTypeSelection addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12552	printerTypeSelection changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12553	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12555	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12556
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12557	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12558	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12559
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12560	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12561
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12562	rightMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12563	rightMargin := Printer rightMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12564	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12565	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12566	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12567	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12568
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12569	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12571	selectedUnit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12572	selectedUnit := 1 asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12573	selectedUnit addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12574	selectedUnit changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12575	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12576	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12577	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12578	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12579
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12580	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12582	supportsColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12583	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12584	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12585	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12586	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12587
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12588	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12589	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12590
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12591	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12592	supportsColorSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12593	supportsColorSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12594	with:[:m \| (self possiblePrinters at:m) supportsColor ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12595	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12596	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12597	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12598
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12599	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12600	"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	12601	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12602
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12603	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12604	supportsMarginSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12605	supportsMarginSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12606	with:[:m \| (self possiblePrinters at:m) supportsMargins ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12607	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12608	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12609	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12610
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12611	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12612	"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	12613	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12614
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12615	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12616	supportsPageFormatSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12617	supportsPageFormatSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12618	with:[:m \| (self possiblePrinters at:m) supportsPageSizes ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12619	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12620	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12621	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12622
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12623	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12624	"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	12625	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12627	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12629	topMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12630	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12631	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12632	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12633	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12634
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12635	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12636	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12637
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12638	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12640	unitList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12641	unitList := #('inch' 'mm') asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12642	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12643	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12644	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12646	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12647
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12648	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12649	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12650
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12651	self printerType selectionIndex ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12652	p := self possiblePrinters at:(self printerType selectionIndex).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12653	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12654	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12655	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12656	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12657	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12658	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12659	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12660
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12661	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12662	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12663
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12664	self printerTypeSelection value ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12665	p := self possiblePrinters at:(self printerTypeSelection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12666	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12667	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12668	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12669	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12670	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12671	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12672	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12673	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12674	hasPageSize ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12675	self pageFormat value:(p pageFormat).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12676	self landscape value:(p landscape).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12677	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12678	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12680	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12681	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12682	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12683	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12684	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12685	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12686
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12687	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12688	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12689	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12690	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12691
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12692	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12693	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12694	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12695
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12696	p notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12697	\| newCommandList \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12698	newCommandList := p defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12699	newCommandList notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12700	self printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12701	contents:(newCommandList asList);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12702	changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12703	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12704	self printCommand value:(p printCommand).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12705	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12706	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12707	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12708	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12709	printerSupportsPostscript ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12710	self supportsColor value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12711	] ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12712	self supportsColor value:(Printer supportsColor).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12713	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12714
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12715	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12716	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12717
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12718	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12719	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12720
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12721	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12722	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12723	self printerTypeSelectionOrUnitListChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12724	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12725	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12726
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12727	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12728	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12729
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12730	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12731
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12732	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12733	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12734	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12735
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12736	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12737
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12738	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12739	commandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12740	commandList := resources string:'PRINT_COMMANDS' default:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12741	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12742	commandList := PrinterStream defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12743	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12744	commandList := #('lpr' 'lp').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12745	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12746	(commandList includes:self printCommand value) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12747	commandList := commandList copyWith:self printCommand value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12748	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12749	].
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12750	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12751	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12752	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12753
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12754	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12755	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12756
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12757	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12758
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12759	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12760	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12761	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12762	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12763	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12764	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12765
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12766	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12767
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12768	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12769	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12770
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12771	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12772	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12773	Printer landscape ~= (self landscape value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12774	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12775	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12776	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	12777	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	12778	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	12779	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	12780	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12781	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12782	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12783	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12784	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12785
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12786	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12787	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12788
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12789	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12790	possiblePrinters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12791	possiblePrinters := PrinterStream withAllSubclasses asArray.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12792	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12793	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12794	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12795
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12796	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12797
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12798	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12799	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12800	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12801
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12802	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12803	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12804
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12805	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12806	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12807	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12808
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12809	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12810
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12811	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12812
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12813	#dynamicPriorities
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12814	'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	12815
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12816	#preemptiveScheduling
16992 01cd10d0a65a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16989 diff changeset	12817	'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	12818
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12819	)
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12820	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12821
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12822	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12823
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12824	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12825	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12826	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12827
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12828	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12829	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12830
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12831	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12832	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12833	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12834	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12835	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12836
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12837	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12838
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12839	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12840	constantNamed:'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12841	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12842	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12843	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	12844	DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12845	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	12846	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	12847	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12848
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12849	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12850
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12851	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12852	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12853	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12854
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12855	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12856	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12857
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12858	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12859	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12860	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12861	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12862	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12863
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12864	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12865
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12866	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12867	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12868	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12869	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12870	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12871	label: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12872	name: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12873	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12874	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12875	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12876	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12877	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12878	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12879	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12880	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12881	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	12882	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12883	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12884	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12885	verticalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12886	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12887	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12888	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12889	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12890	label: 'Preemptive Scheduling'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12891	name: 'CheckBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12892	activeHelpKey: preemptiveScheduling
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12893	model: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12894	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12895	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12896	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12897	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12898	name: 'Box2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12899	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12900	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12901	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12902	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12903	label: 'Dynamic Priorities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12904	name: 'CheckBox12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12905	layout: (LayoutFrame 30 0.0 0 0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12906	activeHelpKey: dynamicPriorities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12907	enableChannel: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12908	model: dynamicPrios
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12909	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12910	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12911	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12912
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12913	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12914	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12915	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12916	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12917
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12918	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12919	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12920	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12921
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12922	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12923	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12924	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12925
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12926	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12927
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12928	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12929	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12930	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12931	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12932
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12933	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12934
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12935	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12936	self preemptive value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12937	Processor startTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12938	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12939	Processor stopTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12940	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12941	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12942	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12943	Processor supportDynamicPriorities:self dynamicPrios value
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12944	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12945	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12946
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12947	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12948
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12949	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12950	dynamicPrios isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12951	dynamicPrios := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12952	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12953	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12954	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12955	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12956
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12957	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12958	preemptive isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12959	preemptive := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12960	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12961	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12962	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12963	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12964
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12965	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12966
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12967	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12968	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12969	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12970
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12971	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12972
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12973	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12974	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12975	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12976	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12977	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12978
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12979	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'help specs'!
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12980
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12981	helpSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12982	"This resource specification was automatically generated
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12983	by the UIHelpTool of ST/X."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12984
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12985	"Do not manually edit this!! If it is corrupted,
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12986	the UIHelpTool may not be able to read the specification."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12987
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12988	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12989	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12990	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12991
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12992	<resource: #help>
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12993
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12994	^ super helpSpec addPairsFrom:#(
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12995
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12996	#rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12997	'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	12998
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12999	#rdoitSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13000	'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	13001
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13002	#scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13003	'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	13004
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13005	#scriptingSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13006	'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	13007	)
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13008	! !
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13009
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13010	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13011
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13012	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13013	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13014	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13015
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13016	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13017	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13018
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13019	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13020	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13021	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13022	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13023	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13024
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13025	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13026
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13027	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13028	constantNamed:'AbstractSettingsApplication::RDoItServerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13029	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13030	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	13031	''#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	13032	!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13033	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	13034	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	13035	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13036
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13037	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13038
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13039	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13040	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13041	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13042
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13043	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13044	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13045
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13046	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13047	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13048	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13049	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13050	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13051
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13052	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13053
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13054	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13055	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13056	name: windowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13057	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13058	(WindowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13059	label: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13060	name: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13061	flags: 1
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13062	min: (Point 10 10)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13063	bounds: (Rectangle 0 0 601 535)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13064	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13065	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13066	(SpecCollection
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13067	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13068	(FramedBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13069	label: 'RDoIt'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13070	name: 'RDoItFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13071	layout: (LayoutFrame 0 0 0 0 0 1 232 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13072	activeHelpKey: rdoitSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13073	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13074	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13075	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13076	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13077	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13078	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13079	name: 'VerticalPanel2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13080	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	13081	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13082	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13083	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13084	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13085	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13086	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13087	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13088	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13089	name: 'Box1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13090	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13091	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13092	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13093	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13094	label: 'Remote doits enabled'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13095	name: 'CheckBox1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13096	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13097	enableChannel: hasRDoitServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13098	model: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13099	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13100	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13101	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13102
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13103	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13104	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13105	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13106	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13107	name: 'Box2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13108	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13109	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13110	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13111	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13112	label: 'Port/Path:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13113	name: 'Label2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13114	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13115	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13116	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13117	enableDisableColorChannel: rDoitsEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13118	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13119	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13120	name: 'EntryField1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13121	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13122	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13123	model: rDoitServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13124	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13125	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13126	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13127	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13128	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13129	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13130	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13131	name: 'Label3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13132	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13133	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13134	adjust: left
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13135	enableDisableColorChannel: rDoitsEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13136	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13137	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13138
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13139	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13140	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13141	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13142	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13143	name: 'Box13'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13144	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13145	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13146	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13147	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13148	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13149	name: 'CheckBox10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13150	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13151	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13152	model: rDoitEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13153	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13154	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13155	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13156
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13157	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13158	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13159	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13160	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13161	name: 'Box3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13162	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13163	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13164	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13165	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13166	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13167	name: 'CheckBox2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13168	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13169	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13170	model: rDoitErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13171	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13172	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13173	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13174
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13175	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13176	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13177	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13178	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13179	name: 'Box4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13180	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13181	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13182	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13183	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13184	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13185	name: 'CheckBox3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13186	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13187	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13188	model: rDoitLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13189	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13190	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13191	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13192
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13193	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13194	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13195	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13196	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13197	name: 'Box5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13198	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13199	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13200	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13201	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13202	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13203	name: 'CheckBox4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13204	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13205	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13206	model: rDoitErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13207	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13208	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13209	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13210
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13211	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13212	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13213	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13214	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13215
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13216	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13217	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13218	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13219
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13220	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13221	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13222	(FramedBoxSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13223	label: 'JavaScript/Smalltalk-Scripting via Telnet'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13224	name: 'ScriptingFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13225	layout: (LayoutFrame 0 0 224 0 0 1 460 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13226	activeHelpKey: scriptingSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13227	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13228	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13229	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13230	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13231	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13232	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13233	name: 'VerticalPanel3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13234	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	13235	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13236	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13237	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13238	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13239	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13240	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13241	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13242	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13243	name: 'Box6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13244	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13245	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13246	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13247	(CheckBoxSpec
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13248	label: 'Telnet Scripting enabled'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13249	name: 'CheckBox5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13250	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13251	enableChannel: hasScriptingServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13252	model: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13253	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13254	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13255	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13256
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13257	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13258	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13259	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13260	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13261	name: 'Box12'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13262	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13263	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13264	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13265	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13266	label: 'Port:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13267	name: 'Label4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13268	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13269	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13270	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13271	enableDisableColorChannel: scriptingEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13272	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13273	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13274	name: 'EntryField2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13275	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13276	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13277	model: scriptingServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13278	isReadOnly: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13279	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13280	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13281	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13282	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13283	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13284	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13285	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13286	name: 'Label5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13287	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13288	initiallyInvisible: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13289	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13290	adjust: left
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13291	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13292	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13293
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13294	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13295	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13296	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13297	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13298	name: 'Box11'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13299	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13300	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13301	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13302	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13303	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13304	name: 'CheckBox9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13305	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13306	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13307	model: scriptingEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13308	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13309	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13310	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13311
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13312	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13313	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13314	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13315	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13316	name: 'Box8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13317	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13318	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13319	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13320	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13321	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13322	name: 'CheckBox6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13323	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13324	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13325	model: scriptingErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13326	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13327	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13328	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13329
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13330	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13331	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13332	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13333	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13334	name: 'Box9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13335	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13336	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13337	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13338	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13339	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13340	name: 'CheckBox7'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13341	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13342	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13343	model: scriptingLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13344	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13345	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13346	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13347
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13348	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13349	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13350	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13351	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13352	name: 'Box10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13353	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13354	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13355	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13356	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13357	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13358	name: 'CheckBox8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13359	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13360	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13361	model: scriptingErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13362	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13363	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13364	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13365
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13366	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13367	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13368	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13369	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13370
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13371	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13372	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13373	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13374
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13375	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13376	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13377	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13378
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13379	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13380	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13381	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13382
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13383	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13384
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13385	basicReadSettings
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13386	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13387	rDoitEnabledOnlyViaLocalConnection
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13388	scriptingEnabled scriptingEnabledOnlyViaLocalConnection scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13389	scriptingErrorLogging scriptingErrorDebugging\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13390
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13391	rDoitsEnabled := false.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13392	rDoitLogging := false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13393	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13394	rDoitErrorDebugging := false.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13395	rDoitServerPortOrPath := ''.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13396	rDoitEnabledOnlyViaLocalConnection := true.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13397
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13398	scriptingEnabled := false.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13399	scriptingEnabledOnlyViaLocalConnection := true.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13400
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13401	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13402	rDoitsEnabled := RDoItServer serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13403	rDoitEnabledOnlyViaLocalConnection := RDoItServer localConnectionsOnly.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13404	rDoitLogging := RDoItServer isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13405	rDoitErrorLogging := RDoItServer isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13406	rDoitErrorDebugging := RDoItServer isErrorCatching not.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13407	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath asString.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13408	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13409
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13410	(STXScriptingServer notNil
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13411	and:[ STXScriptingServer isLoaded ]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13412	scriptingEnabled := STXScriptingServer serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13413	scriptingEnabledOnlyViaLocalConnection := STXScriptingServer localConnectionsOnly.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13414	scriptingLogging := STXScriptingServer isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13415	scriptingErrorLogging := STXScriptingServer isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13416	scriptingErrorDebugging := STXScriptingServer isErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13417	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13418
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13419	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13420	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13421	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13422	self rDoitErrorDebugging value:rDoitErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13423	self rDoitServerPortOrPath value:rDoitServerPortOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13424
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13425	self scriptingEnabled value:scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13426	self scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13427	self scriptingLogging value:scriptingLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13428	self scriptingErrorLogging value:scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13429	self scriptingErrorDebugging value:scriptingErrorDebugging.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13430
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13431	"Modified: / 20-05-2010 / 14:49:50 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13432	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13433
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13434	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13435	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13436
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13437	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13438
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13439	self hasRDoitServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13440	RDoItServer defaultPortNumberOrPath:portOrPath.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13441	RDoItServer logging:self rDoitLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13442	RDoItServer errorLogging:self rDoitErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13443	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13444	RDoItServer localConnectionsOnly:(self rDoitEnabledOnlyViaLocalConnection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13445	shouldRun := self rDoitsEnabled value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13446	shouldRun ~~ RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13447	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13448	RDoItServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13449	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13450	RDoItServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13451	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13452	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13453	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13454	RDoItServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13455	self warn:'RDoit startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13456	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13457	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13458	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13459	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13460
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13461	self hasScriptingServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13462	STXScriptingServer logging:self scriptingLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13463	STXScriptingServer errorLogging:self scriptingErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13464	STXScriptingServer errorDebugging:(self scriptingErrorDebugging value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13465	STXScriptingServer localConnectionsOnly:(self scriptingEnabledOnlyViaLocalConnection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13466	shouldRun := self scriptingEnabled value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13467	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13468	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13469	STXScriptingServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13470	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13471	STXScriptingServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13472	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13473	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13474	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13475	STXScriptingServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13476	self warn:'STXScripting startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13477	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13478	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13479	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13480	].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13481
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13482	"Modified: / 20-05-2010 / 14:50:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13483	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13484
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13485	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13486	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13487
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13488	portOrPath := self rDoitServerPortOrPath value.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13489	portOrPath isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13490	"a numeric string means it is a TCP port number"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13491	nrOrNil := Integer readFrom:portOrPath onError:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13492	nrOrNil notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13493	portOrPath := nrOrNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13494	]
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13495	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13496	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13497	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13498
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13499	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13500
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13501	rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13502	rDoitEnabledOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13503	rDoitEnabledOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13504	rDoitEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13505	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13506	^ rDoitEnabledOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13507
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13508	"Created: / 20-05-2010 / 12:15:12 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13509	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13510
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13511	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13512	rDoitErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13513	rDoitErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13514	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13515	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13516	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13517	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13518
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13519	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13520	rDoitErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13521	rDoitErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13522	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13523	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13524	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13525	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13526
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13527	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13528	rDoitLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13529	rDoitLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13530	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13531	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13532	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13533	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13534
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13535	rDoitOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13536	rDoitOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13537	rDoitOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13538	rDoitOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13539	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13540	^ rDoitOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13541
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13542	"Created: / 20-05-2010 / 12:14:50 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13543	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13544
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13545	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13546	rDoitServerPortOrPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13547	rDoitServerPortOrPath := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13548	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	13549	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13550	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13551	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13552
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13553	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13554	rDoitsEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13555	rDoitsEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13556	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13557	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13558	^ rDoitsEnabled.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13559	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13560
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13561	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13562	scriptingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13563	scriptingEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13564	scriptingEnabled onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13565	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13566	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13567	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13568
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13569	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13570	scriptingEnabledOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13571	scriptingEnabledOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13572	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13573	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13574	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13575	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13576
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13577	scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13578	scriptingErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13579	scriptingErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13580	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13581	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13582	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13583	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13584
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13585	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13586	scriptingErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13587	scriptingErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13588	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13589	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13590	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13591	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13592
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13593	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13594	scriptingLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13595	scriptingLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13596	scriptingLogging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13597	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13598	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13599	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13600
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13601	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13602	<resource: #uiAspect>
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13603
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13604	scriptingServerPortOrPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13605	STXScriptingServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13606	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13607	].
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13608	].
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13609	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13610	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13611
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13612	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13613
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13614	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13615	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13616	self rDoitsEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13617	RDoItServer autoload.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13618	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13619	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13620	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13621	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13622	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13623
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13624	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13625
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13626	helpFilename
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13627	^ 'Launcher/communicationsSettings.html'
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13628	!
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13629
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13630	helpTextForKey:aKey
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13631	\|usedKey\|
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13632
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13633	usedKey := aKey.
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13634	usedKey == #rdoitSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13635	self hasRDoitServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13636	usedKey := #rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13637	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13638	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13639	usedKey == #scriptingSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13640	self hasScriptingServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13641	usedKey := #scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13642	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13643	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13644	^ super helpTextForKey:usedKey.
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13645	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13646
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13647	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13648
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13649	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13650	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13651	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13652
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13653	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13654	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13655	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13656
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13657	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13658	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13659	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13660
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13661	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13662	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13663	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13664
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13665	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13666	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13667	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13668	RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13669	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13670	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13671	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13672	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13673	self rDoitEnabledOnlyViaLocalConnection value ~= RDoItServer localConnectionsOnly ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13674	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13675	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13676	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13677	self scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13678	STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13679	self scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13680	self scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13681	self scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13682	self scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13683	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13684	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13685	^ false
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13686
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13687	"Modified: / 20-05-2010 / 14:48:52 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13688	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13689
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13690	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13691
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13692	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13693	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13694	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13695
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13696	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13697	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13698
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13699	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13700	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13701	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13702
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13703	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13704
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13705	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13706
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13707	#sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13708	'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	13709
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13710	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13711	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13712
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13713	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13714
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13715	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13716	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13717	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13718
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13719	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13720	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13721
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13722	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13723	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13724	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13725	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13726	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13727
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13728	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13729
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13730	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13731	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13732	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	13733	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13734	@@@@@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	13735	@@@@@@@@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	13736	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	13737	@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	13738	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	13739	@@@@@@@@@@@@@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	13740	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13741
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13742	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13743	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13744	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13745
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13746	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13747	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13748
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13749	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13750	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13751	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13752	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13753	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13754
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13755	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13756
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13757	^Icon
17690 9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13758	constantNamed:'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon2'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13759	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	13760	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13761	@@@@@@@@@@@@@@@@@@@@!!!!"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	13762	"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	13763	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	13764	@@@@@@@@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	13765	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	13766	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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	13767
9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13768	"Modified: / 13-09-2017 / 18:34:43 / cg"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13769	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13770
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13771	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13772	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13773
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13774	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13775	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13776	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13777
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13778	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13779
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13780	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13781	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13782	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13783
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13784	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13785	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13786
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13787	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13788	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13789	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13790	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13791	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13792
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13793	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13794
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13795	^
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13796	#(FullSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13797	name: windowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13798	window:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13799	(WindowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13800	label: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13801	name: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13802	min: (Point 10 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13803	bounds: (Rectangle 0 0 600 550)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13804	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13805	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13806	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13807	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13808	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13809	activeHelpKey: #sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13810	name: 'VerticalPanel2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13811	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	13812	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13813	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13814	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13815	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13816	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13817	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13818	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13819	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13820	name: 'EnableBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13821	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13822	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13823	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13824	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13825	label: 'SQL Server Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13826	name: 'EnableCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13827	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13828	enableChannel: hasSQLServerClass
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13829	model: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13830	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13831	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13832	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13833
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13834	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13835	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13836	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13837	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13838	name: 'PortBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13839	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13840	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13841	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13842	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13843	label: 'MySQL Port:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13844	name: 'Label2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13845	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13846	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13847	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13848	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13849	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13850	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13851	name: 'EntryField1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13852	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13853	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13854	model: sqlServerPort
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13855	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13856	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13857	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13858	acceptOnPointerLeave: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13859	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13860	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13861	label: 'MySQL Port-Number (ODBC)'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13862	name: 'Label3'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13863	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13864	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13865	adjust: left
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13866	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13867	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13868	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13869
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13870	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13871	extent: (Point 600 72)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13872	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13873	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13874	name: 'LogErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13875	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13876	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13877	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13878	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13879	label: 'Log Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13880	name: 'ErrorLoggingCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13881	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13882	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13883	model: sqlErrorLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13884	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13885	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13886	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13887
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13888	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13889	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13890	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13891	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13892	name: 'LogDataBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13893	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13894	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13895	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13896	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13897	label: 'Log Data'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13898	name: 'LogDataCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13899	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13900	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13901	model: sqlDataLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13902	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13903	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13904	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13905
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13906	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13907	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13908	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13909	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13910	name: 'LogRequestsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13911	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13912	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13913	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13914	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13915	label: 'Log Requests'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13916	name: 'LogRequestsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13917	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13918	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13919	model: sqlLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13920	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13921	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13922	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13923
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13924	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13925	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13926	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13927	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13928	name: 'LogSQLBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13929	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13930	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13931	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13932	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13933	label: 'Log SQL'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13934	name: 'CheckBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13935	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13936	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13937	model: sqlStatementLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13938	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13939	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13940	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13941
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13942	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13943	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13944	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13945	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13946	name: 'DebugErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13947	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13948	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13949	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13950	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13951	label: 'Debug Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13952	name: 'DebugErrorsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13953	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13954	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13955	model: sqlErrorDebugging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13956	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13957	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13958	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13959
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13960	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13961	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13962	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13963	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13964	name: 'Box1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13965	extent: (Point 600 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13966	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13967	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13968	name: 'EnableSmalltalkBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13969	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13970	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13971	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13972	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13973	label: 'Virtual Smalltalk Tables Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13974	name: 'EnableSmalltalkCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13975	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13976	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13977	model: sqlSmalltalkServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13978	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13979	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13980	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13981
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13982	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13983	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13984	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13985	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13986
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13987	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13988	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13989	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13990
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13991	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13992	)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13993	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13994
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13995	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13996
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13997	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13998	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13999
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14000	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14001	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14002	self sqlServerEnabled value:sqlServerClass serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14003	self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14004	self sqlLogging value:sqlServerClass isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14005	self sqlStatementLogging value:sqlServerClass isSQLLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14006	self sqlErrorLogging value:sqlServerClass isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14007	self sqlDataLogging value:sqlServerClass isDataLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14008	self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14009	self sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14010	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14011	self sqlServerEnabled value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14012	self sqlSmalltalkServerEnabled value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14013	self sqlLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14014	self sqlStatementLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14015	self sqlErrorLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14016	self sqlDataLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14017	self sqlErrorDebugging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14018	self sqlServerPort value:nil
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14019	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14020
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14021	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14022	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14023
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14024	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14025	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14026
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14027	sqlServerClass := self sqlServerClass.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14028
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14029	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14030	port isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14031	port := port asInteger.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14032	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14033
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14034	sqlServerClass defaultPort:port.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14035	sqlServerClass logging:self sqlLogging value.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14036	sqlServerClass sqlLogging:self sqlStatementLogging value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14037	sqlServerClass errorLogging:self sqlErrorLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14038	sqlServerClass dataLogging:self sqlDataLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14039	sqlServerClass errorCatching:(self sqlErrorDebugging value not).
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14040	sqlServerClass smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14041
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14042	shouldRun := self sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14043	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14044	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14045	sqlServerClass stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14046	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14047	sqlServerClass start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14048	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14049	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14050	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14051	sqlServerClass serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14052	self warn:'SQLServer startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14053	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14054	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14055	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14056
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14057	"Modified: / 25-01-2007 / 17:41:20 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14058	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14059
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14060	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14061
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14062	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14063	sqlDataLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14064	sqlDataLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14065	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14066	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14067	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14068	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14069
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14070	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14071	sqlErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14072	sqlErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14073	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14074	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14075	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14076	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14077
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14078	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14079	sqlErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14080	sqlErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14081	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14082	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14083	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14084	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14085
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14086	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14087	sqlLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14088	sqlLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14089	sqlLogging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14090	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14091	^ sqlLogging.
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14094	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14095	sqlServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14096	sqlServerEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14097	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
6427 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	^ sqlServerEnabled.
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14102	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14103	sqlServerPort isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14104	sqlServerPort := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14105	sqlServerPort onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14106	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14107	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14108	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14109
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14110	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14111	sqlSmalltalkServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14112	sqlSmalltalkServerEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14113	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14114	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14115	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14116	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14117
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14118	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14119	sqlStatementLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14120	sqlStatementLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14121	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14122	].
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14123	^ sqlStatementLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14124	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14125
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14126	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14127
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14128	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14129	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14130	self sqlServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14131	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14132	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14133	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14134	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14135
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14136	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14137	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14138
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14139	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14140	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14141	self sqlSmalltalkServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14142	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14143	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14144	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14145	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14146
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14147	"Modified: / 25-01-2007 / 17:40:03 / cg"
6427 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
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14150	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14151
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14152	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14153	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14154	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14155
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14156	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
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	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14159	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14160
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14161	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14162	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14163
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14164	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14165	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14166
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14167	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14168	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14169
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14170	self sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14171	sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14172	self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14173	self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14174	self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14175	self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14176	self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14177	self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14178	self sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14179	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14180	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14181
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14182	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14183	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14184
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14185	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14186	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14187
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14188	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14189	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14190
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14191	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14192
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14193	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14194	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14195	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14196
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14197	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14198
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14199	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14200	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14201
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14202	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'help specs'!
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14203
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14204	helpSpec
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14205	"This resource specification was automatically generated
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14206	by the UIHelpTool of ST/X."
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14207
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14208	"Do not manually edit this!! If it is corrupted,
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14209	the UIHelpTool may not be able to read the specification."
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14210
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14211	"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14212	UIHelpTool openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14213	"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14214
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14215	<resource: #help>
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14216
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14217	^ super helpSpec addPairsFrom:#(
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14218
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14219	#stcCommand
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14220	'Path to the stc compiler (compiles Smalltalk to C-code)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14221	#stcCommandOptions
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14222	'Options to the stc compiler (see stc man-page)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14223	#stcKeepCIntermediate
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14224	'Keep the intermediate C-file (for st/x developers)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14225	#stcIncluedDirectories
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14226	'Include directories (for stc and cc)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14227	#ccCommand
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14228	'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	14229	#ccCommandOptions
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14230	'Options to the c compiler'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14231
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14232	)
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14233
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14234	"Modified: / 22-04-2019 / 10:23:35 / Claus Gittinger"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14235	! !
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14236
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14237	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14238
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14239	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14240	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14241
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14242	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14243
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14244	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14245	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14246
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14247	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14248	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14249	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14250
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14251	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14252	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14253
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14254	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14255	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14256	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14257	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14258	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14259
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14260	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14261
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14262	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14263	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14264	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	14265	@@@@@@@@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	14266	CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14267	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	14268	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	14269	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14270
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14271	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14272	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14273	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14274
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14275	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14276	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14277
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14278	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14279	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14280	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14281	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14282	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14283
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14284	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14285
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14286	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14287	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14288	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	14289	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	14290	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	14291	@@@@@@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	14292	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	14293	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	14294	@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	14295	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	14296	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14297
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14298	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14299	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14300	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14301
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14302	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14303	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14304
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14305	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14306	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14307	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14308	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14309	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14310
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14311	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14312
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14313	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14314	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14315	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	14316	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	14317	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	14318	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	14319	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	14320	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	14321	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	14322	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	14323	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14324
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14325	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14326	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14327	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14328
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14329	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14330	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14331
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14332	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14333	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14334	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14335	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14336	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14337
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14338	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14339
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14340	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14341	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14342	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	14343	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	14344	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	14345	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	14346	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	14347	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	14348	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	14349	@@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	14350	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14351
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14352	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14353
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14354	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14355	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14356	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14357
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14358	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14359	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14360
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14361	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14362	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14363	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14364	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14365	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14366
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14367	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14368
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14369	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14370	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14371	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14372	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14373	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14374	label: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14375	name: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14376	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14377	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14378	bounds: (Rectangle 0 0 600 602)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14379	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14380	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14381	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14382	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14383	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14384	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14385	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	14386	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14387	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14388	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14389	verticalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14390	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14391	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14392	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14393	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14394	name: 'SeparatingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14395	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14396	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14397	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14398	name: 'InfoTextBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14399	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14400	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14401	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14402	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14403	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14404	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14405	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14406	labelChannel: helpText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14407	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14408	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14409	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14410
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14411	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14412	extent: (Point 600 90)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14413	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14414	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14415	name: 'STCCompilationBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14416	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14417	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14418	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14419	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14420	label: 'STC Compilation to Machine Code:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14421	name: 'Label11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14422	layout: (LayoutFrame 0 0 0 0 240 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14423	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14424	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14425	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14426	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14427	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14428	name: 'StcCompilation'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14429	layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14430	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14431	model: stcCompilationSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14432	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14433	menu: stcCompilationList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14434	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14435	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14436	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14437
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14438	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14439	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14440	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14441	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14442	name: 'STCCommandBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14443	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14444	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14445	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14446	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14447	label: 'STC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14448	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14449	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14450	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14451	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14452	activeHelpKey: stcCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14453	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14454	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14455	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14456	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14457	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14458	model: stc
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14459	activeHelpKey: stcCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14460	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14461	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14462	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14463	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14464	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14465	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14466	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14467
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14468	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14469	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14470	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14471	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14472	name: 'STCOptionsBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14473	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14474	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14475	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14476	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14477	label: 'STC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14478	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14479	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14480	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14481	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14482	activeHelpKey: stcCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14483	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14484	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14485	name: 'EntryField2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14486	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14487	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14488	model: stcOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14489	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14490	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14491	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14492	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14493	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14494	activeHelpKey: stcCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14495	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14496	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14497
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14498	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14499	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14501	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14502	name: 'KeepCIntermediateBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14503	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14504	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14505	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14506	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14507	label: 'Keep Intermediate C File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14508	name: 'Label15'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14509	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14510	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14511	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14512	activeHelpKey: stcKeepCIntermediate
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14513	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14514	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14515	name: 'CheckToggle1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14516	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14517	model: stcKeepCIntermediate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14518	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14519	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14520	lampColor: (Color 100.0 100.0 0.0)
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14521	activeHelpKey: stcKeepCIntermediate
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14522	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14523	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14524
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14525	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14526	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14527	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14528	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14529	name: 'CCCommandBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14530	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14531	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14532	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14533	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14534	label: 'CC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14535	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14536	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14537	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14538	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14539	activeHelpKey: ccCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14540	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14541	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14542	name: 'EntryField3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14543	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14544	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14545	model: cc
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14546	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14547	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14548	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14549	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14550	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14551	activeHelpKey: ccCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14552	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14553	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14554
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14555	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14556	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14557	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14558	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14559	name: 'CCOptionsBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14560	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14561	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14562	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14563	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14564	label: 'CC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14565	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14566	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14567	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14568	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14569	activeHelpKey: ccCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14570	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14571	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14572	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14573	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14574	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14575	model: ccOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14576	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14577	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14578	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14579	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14580	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14581	activeHelpKey: ccCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14582	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14583	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14584
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14585	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14586	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14587	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14588	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14589	name: 'IncludeDirectoriesBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14590	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14591	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14592	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14593	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14594	label: 'Include Directories:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14595	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14596	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14597	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14598	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14599	activeHelpKey: stcIncluedDirectories
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14600	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14601	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14602	name: 'EntryField5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14603	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14604	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14605	model: stcIncludes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14606	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14607	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14608	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14609	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14610	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14611	activeHelpKey: stcIncluedDirectories
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14612	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14613	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14614
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14615	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14616	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14617	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14618	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14619	name: 'STCDefinesBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14620	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14621	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14622	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14623	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14624	label: 'Defines:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14625	name: 'Label6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14626	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14627	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14628	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14629	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14630	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14631	name: 'EntryField6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14632	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14633	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14634	model: stcDefines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14635	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14636	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14637	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14638	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14639	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14640	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14641	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14642
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14643	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14644	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14645	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14646	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14647	name: 'LinkCommandBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14648	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14649	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14650	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14651	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14652	label: 'Link Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14653	name: 'Label7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14654	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14655	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14656	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14657	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14658	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14659	name: 'EntryField7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14660	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14661	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14662	model: linkCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14663	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14664	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14665	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14666	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14667	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14668	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14669	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14670
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14671	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14672	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14673	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14674	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14675	name: 'LinkArgumentsBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14676	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14677	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14678	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14679	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14680	label: 'Link Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14681	name: 'Label8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14682	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14683	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14684	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14685	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14686	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14687	name: 'EntryField8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14688	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14689	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14690	model: linkArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14691	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14692	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14693	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14694	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14695	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14696	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14697	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14698
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14699	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14700	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14701	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14702	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14703	name: 'LinkSharedArgumentsBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14704	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14705	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14706	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14707	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14708	label: 'Link Shared Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14709	name: 'Label12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14710	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14711	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14712	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14713	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14714	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14715	name: 'EntryField11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14716	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14717	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14718	model: linkSharedArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14719	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14720	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14721	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14722	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14723	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14724	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14725	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14726
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14727	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14728	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14729	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14730	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14731	name: 'CLibrariesBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14732	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14733	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14734	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14735	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14736	label: 'C-Libraries:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14737	name: 'Label9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14738	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14739	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14740	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14741	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14742	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14743	name: 'EntryField9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14744	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14745	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14746	model: stcLibraries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14747	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14748	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14749	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14750	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14751	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14752	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14753	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14754
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14755	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14756	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14757	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14758	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14759	name: 'STCLibraryPathBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14760	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14761	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14762	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14763	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14764	label: 'STC Library Path:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14765	name: 'Label10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14766	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14767	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14768	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14769	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14770	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14771	name: 'EntryField10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14772	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14773	enableChannel: enableStcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14774	model: stcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14775	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14776	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14777	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14778	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14779	acceptOnPointerLeave: true
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14784	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14785	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14786	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14787	name: 'MakeCommandBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14788	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14789	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14790	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14791	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14792	label: 'Make Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14793	name: 'Label13'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14794	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14795	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14796	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14797	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14798	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14799	name: 'EntryField12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14800	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14801	model: makeCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14802	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14803	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14804	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14805	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14806	acceptOnPointerLeave: true
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14811	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14812	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14813	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14814	name: 'SeparatingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14815	extent: (Point 600 12)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14816	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14817	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14818	name: 'SetupForBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14819	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14820	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14821	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14822	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14823	label: 'Set above Options for:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14824	name: 'Label16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14825	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14826	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14827	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14828	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14829	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14830	name: 'PopUpList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14831	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14832	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14833	model: supportedCCompilerSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14834	menu: supportedCCompilerList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14835	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14836	stateChangeCallBackSelector: supportedCCompilerSelectionChanged
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14841	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14842	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14843	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14844	name: 'Box1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14845	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14846	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14847	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14848	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14849	label: 'Verbose (Trace Commands):'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14850	name: 'Label17'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14851	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14852	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14853	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14854	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14855	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14856	name: 'CheckToggle2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14857	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14858	model: verbose
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14859	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14860	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14861	lampColor: (Color 100.0 100.0 0.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14862	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14863	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14864
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14865	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14866	extent: (Point 600 30)
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14871	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14872	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14873
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14874	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14875	)
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14876
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14877	"Modified: / 22-04-2019 / 10:23:13 / Claus Gittinger"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14878	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14879
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14880	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14881
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14882	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14883	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14884
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14885	self canLoadBinaries
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14886	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	14887
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14888	self verbose value:(STCCompilerInterface verbose ? false).
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14889
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14890	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14891	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14892	self stcOptions value:ParserFlags stcCompilationOptions.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14893	self stcKeepCIntermediate value:ParserFlags stcKeepCIntermediate.
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14894	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14895	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14896	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	14897	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	14898
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14899	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14900	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14901	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14902
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14903	(t := ParserFlags searchedLibraries) notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14904	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14905	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14906	(t := ParserFlags libPath) notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14907	self stcLibraryPath value:t
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14908	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14909
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14910	self stcCompilationSelection value:(self class stcCompilationOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14911	indexOf:(ParserFlags stcCompilation)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14912	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	14913
ec908ed4b944 make command fm parents: 6860 diff changeset	14914	"Modified: / 09-08-2006 / 18:49:38 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14915	"Modified: / 16-09-2011 / 18:45:15 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14916	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14917
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14918	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14919
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14920	STCCompilerInterface verbose:self verbose value.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14921
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14922	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14923	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14924	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14925	ParserFlags stcCompilationOptions:self stcOptions value.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14926	ParserFlags stcKeepCIntermediate:self stcKeepCIntermediate value.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14927	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14928	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	14929	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	14930
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14931	self stc value ~= ParserFlags stcPath ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14932	ParserFlags stcPath:self stc value
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14933	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14934	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14935	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14936	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14937	self stcLibraries value notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14938	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14939	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14940	stcLibraryPath notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14941	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14942	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	14943
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	14944	"Modified: / 09-08-2006 / 19:33:10 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14945	"Modified: / 16-09-2011 / 18:45:28 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14946	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14947
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14948	setupForBCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14949	"set values for using borland C (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14950
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14951	\|bccDir\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14952
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14953	bccDir := 'c:\borland\bcc55'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14954
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14955	bccDir asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14956	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	14957	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14958
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14959	self cc value:(bccDir,'\bin\bcc32').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14960	self ccOptions value:'-w-'.
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	14961	self stcIncludes value:('-I..\..\include -I',bccDir,'\Include').
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14962	self linkCommand value:(bccDir,'\bin\ilink32').
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	14963	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	14964	self stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14965	self makeCommand value:'bmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14966
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14967	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14968	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14969
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14970	"Modified: / 14-06-2017 / 11:04:00 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14971	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14972
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14973	setupForCLANG
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14974	"set values for using CLANG"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14975
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14976	\|cpuType ccOptions linkArgs linkSharedArgs\|
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14977
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14978	self cc value:'clang'.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14979	cpuType := OperatingSystem getCPUType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14980
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14981	ccOptions := '-O3 -arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14982	linkArgs := '-arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14983	linkSharedArgs := '-shared -arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14984
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14985	OperatingSystem isOSXlike ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14986	ccOptions := ccOptions , ' -mmacosx-version-min=10.3'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14987	linkSharedArgs := linkSharedArgs , ' -mmacosx-version-min=10.3 librun.so'
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14988	].
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14989
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14990	self ccOptions value:ccOptions.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14991	self linkArgs value:linkArgs.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14992	self linkSharedArgs value:linkSharedArgs.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14993	self stcIncludes value:'-I../../include -I/usr/include/freetype2'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14994	self linkCommand value:'clang'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14995	self stcLibraries value:''.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14996	self makeCommand value:'make'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14997
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14998	self updateModifiedChannel.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14999	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15000
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15001	"Modified (comment): / 14-06-2017 / 10:48:34 / cg"
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15002	!
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15003
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15004	setupForGCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15005	"set values for using gcc (linux/unix)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15006
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15007	self cc value:'gcc'.
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15008	ExternalBytes sizeofPointer == 4 ifTrue:[
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15009	self ccOptions value:'-m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15010	self linkArgs value:'-m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15011	self linkSharedArgs value:'-shared -m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15012	] ifFalse:[
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	15013	self ccOptions value:'-m64 -fPIC'.
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15014	self linkArgs value:'-m64'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15015	self linkSharedArgs value:'-shared -m64'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15016	].
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15017	self stcIncludes value:'-I../../include -I/usr/include/freetype2'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15018	self linkCommand value:'gcc'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15019	self stcLibraries value:''.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15020	self makeCommand value:'make'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15021
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15022	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15023	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15024
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15025	"Modified: / 14-06-2017 / 11:09:07 / cg"
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	15026	"Modified: / 20-09-2017 / 19:48:10 / stefan"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15027	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15028
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15029	setupForMINGW
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15030	"set values for using mingw (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15031
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15032	\|programFiles programFilesX86 mingwFolder\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15033
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15034	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15035	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15036	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15037	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15038
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15039	"/ where to search
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15040	ExternalBytes sizeofPointer == 4 ifTrue:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15041	mingwFolder := 'C:\mingw32'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15042	] ifFalse:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15043	mingwFolder := 'C:\mingw64'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15044	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15045
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15046	{ programFilesX86 . programFiles . 'C:\' . 'C:\mingw' } do:[:triedFolder \|
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15047	ExternalBytes sizeofPointer == 4 ifTrue:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15048	(triedFolder asFilename / 'mingw32') exists ifTrue:[
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15049	mingwFolder := triedFolder asFilename constructString: 'mingw32'
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15050	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15051	] ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15052	(triedFolder asFilename / 'mingw64') exists ifTrue:[
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15053	mingwFolder := triedFolder asFilename constructString: 'mingw64'
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15054	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15055	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15056	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15057
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15058	self cc value:(mingwFolder,'\bin\gcc').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15059	self linkArgs value:('-L..\..\lib\mingw -L',mingwFolder,'\lib').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15060	self ccOptions value:''.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15061	self stcIncludes value:'-I..\..\include'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15062	self linkCommand value:(self cc value).
16812 d9494aeded9d #BUGFIX by sr sr parents: 16788 diff changeset	15063	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	15064	self makeCommand value:'mingwmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15065
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15066	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15067	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15068
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15069	"Modified: / 14-06-2017 / 11:08:33 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15070	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15071
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15072	setupForMSVC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15073	"set values for using msvc (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15074
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15075	\|programFiles programFilesX86 nothingFound found\|
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15076
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15077	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15078	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15079	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15080	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15081
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15082	self cc value:('cl.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15083	self linkCommand value:('ilink32.exe').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15084	self ccOptions value:'/O1'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15085	self stcIncludes value:'-I..\..\include'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15086	self linkArgs value:'-L..\..\lib\vc'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15087	self stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15088	self makeCommand value:'vcmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15089
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15090	"/ no try to find cl and ilink32
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15091	nothingFound := false.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15092
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15093	programFilesX86 asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15094	programFiles asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15095	nothingFound := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15096	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15097	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15098	nothingFound ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15099	#('13.0' '12.0' '11.0' '10.0') do:[:triedVersion \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15100	{ programFilesX86 . programFiles } do:[:triedFolder \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15101	\|each\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15102
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15103	found ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15104	each := triedFolder,'\Microsoft Visual Studio ',triedVersion,'\VC\bin'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15105	each asFilename exists ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15106	self cc value:(each,'\cl.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15107	self linkCommand value:(each,'\ilink32.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15108	found := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15109	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15110	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15111	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15112	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15113	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15114
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15115	self updateModifiedChannel.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15116	self supportedCCompilerSelection value:0.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15117
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15118	nothingFound ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15119	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	15120	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15121
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15122	"Modified: / 14-06-2017 / 11:04:11 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15123	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15124
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15125	supportedCCompilerSelectionChanged
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15126	\|idx spec compiler\|
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15127
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15128	idx := self supportedCCompilerSelection value.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15129	idx == 0 ifTrue:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15130
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15131	spec := self supportedCCompilerListSpec at:idx ifAbsent:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15132	compiler := spec second.
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15133	compiler == #clang ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15134	self setupForCLANG.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15135	^ self.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15136	].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15137	compiler == #gcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15138	self setupForGCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15139	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15140	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15141	compiler == #bcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15142	self setupForBCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15143	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15144	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15145	compiler == #msvc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15146	self setupForMSVC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15147	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15148	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15149	compiler == #mingw ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15150	self setupForMINGW.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15151	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15152	].
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15153	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15154
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15155	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15156
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15157	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15158
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15159	canLoadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15160	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15161	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15162	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15163	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15164
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15165	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15166
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15167	cc isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15168	cc := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15169	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15170	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15171	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15172	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15173
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15174	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15175
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15176	ccOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15177	ccOptions := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15178	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15179	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15180	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15181	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15182
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15183	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15184
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15185	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15186	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15187
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15188	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15189
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15190	linkArgs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15191	linkArgs := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15192	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15193	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15194	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15195	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15196
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15197	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15198
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15199	linkCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15200	linkCommand := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15201	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15202	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15203	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15204	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15205
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15206	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15207
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15208	linkSharedArgs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15209	linkSharedArgs := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15210	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15211	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15212	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15213	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15214
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15215	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	15216
ec908ed4b944 make command fm parents: 6860 diff changeset	15217	makeCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15218	makeCommand := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15219	makeCommand onChangeSend:#updateModifiedChannel to:self.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15220	].
ec908ed4b944 make command fm parents: 6860 diff changeset	15221	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	15222
ec908ed4b944 make command fm parents: 6860 diff changeset	15223	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	15224	!
ec908ed4b944 make command fm parents: 6860 diff changeset	15225
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15226	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15227
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15228	stc isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15229	stc := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15230	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15231	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15232	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15233	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15235	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15236
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15237	stcCompilationList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15238	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15239	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15240	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15241	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15242
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15243	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15244
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15245	stcCompilationSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15246	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15247	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15248	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15249	^ stcCompilationSelection.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15252	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15253
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15254	stcDefines isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15255	stcDefines := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15256	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15257	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15258	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15259	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15261	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15262
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15263	stcIncludes isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15264	stcIncludes := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15265	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15266	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15267	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15268	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15269
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15270	stcKeepCIntermediate
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15271	stcKeepCIntermediate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15272	stcKeepCIntermediate := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15273	stcKeepCIntermediate onChangeSend:#updateModifiedChannel to:self.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15274	].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15275	^ stcKeepCIntermediate.
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15276
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15277	"Created: / 16-09-2011 / 18:42:10 / cg"
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15278	!
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15279
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15280	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15281
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15282	stcLibraries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15283	stcLibraries := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15284	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15285	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15286	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15287	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15288
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15289	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15290
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15291	stcLibraryPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15292	stcLibraryPath := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15293	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15294	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15295	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15296	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15297
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15298	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15299
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15300	stcOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15301	stcOptions := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15302	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15303	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15304	^ stcOptions.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15305	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15306
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15307	supportedCCompilerList
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15308	^ self supportedCCompilerListSpec collect:[:s \| s first].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15309	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15310
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15311	supportedCCompilerListSpec
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15312	OperatingSystem isMSWINDOWSlike ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15313	^ #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15314	('Borland CC v5.5 (bcc)' #bcc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15315	('Microsoft Visual C (cl)' #msvc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15316	('Mingw (gcc)' #mingw)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15317	).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15318	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15319
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15320	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15321	('GNU gcc' #gcc)
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15322	('clang' #clang)
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15323	).
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15324	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15325
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15326	supportedCCompilerSelection
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15327	supportedCCompilerSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15328	supportedCCompilerSelection := ValueHolder new.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15329	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15330	^ supportedCCompilerSelection.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15331	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15332
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15333	verbose
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15334
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15335	verbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15336	verbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15337	verbose onChangeSend:#updateModifiedChannel to:self.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15338	].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15339	^ verbose.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15340	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15341
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15342	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15343
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15344	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15345	^ 'Launcher/compilerSettings.html'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15346	!
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15347
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15348	helpText
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15349	^ 'These settings are only relevant if methods are to be compiled directly to
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15350	machine code (i.e. using the external stc, not the builtin bytecode compiler).
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15351	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	15352	for plain Smalltalk code, it is not needed.'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15353
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15354	"Created: / 16-09-2011 / 18:18:32 / cg"
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15355	"Modified: / 22-04-2019 / 10:14:16 / Claus Gittinger"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15356	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15357
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15358	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15359
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15360	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15361	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15362
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15363	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15364
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15365	((STCCompilerInterface verbose) ~= (self verbose value)) ifTrue:[^ true].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15366
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15367	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15368	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15369	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15370	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15371	((ParserFlags stcKeepCIntermediate) ~= self stcKeepCIntermediate value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15372	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15373	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15374	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15375	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15376	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15377	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15378	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15379	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15380
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15381	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15382	searchedLibs notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15383	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15384	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15385	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15386
ec908ed4b944 make command fm parents: 6860 diff changeset	15387	"Modified: / 09-08-2006 / 18:50:36 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15388	"Modified: / 16-09-2011 / 18:42:00 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15389	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15390
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15391	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15393	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15394
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15395	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15396	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15397	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15398
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15399	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15400
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15401	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15402	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15403	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15404	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15405	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15406	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15407	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15408	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15409	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15410	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15411	Transcript showCR:''world''.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15412	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15413	[methodArg] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15414	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15415	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15416	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15417	Transcript showCR:''hello''. "/ long blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15418	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15419	methodArg do:[:element \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15420	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15421	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15422	1 to:methodArg size do:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15423	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15424	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15425	methodArg keysAndValuesDo:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15426	Transcript showCR:''hello''. "/ looping
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15427	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15428	Object errorSignal handle:[:ex \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15429	ex return
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15430	] do:[ "/ exception handling
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15431	self someAction "/ blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15432	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15433	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15434	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15435	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15436
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15437	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15438
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15439	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15440	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15441	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15442
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15443	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15444	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15445
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15446	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15447	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15448	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15449	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15450	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15451
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15452	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15453
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15454	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15455	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15456	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15457	@@@@@@@@@@@@@@@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	15458	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	15459	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	15460	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15461
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15462	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15464	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15465	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15466	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15467
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15468	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15469	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15470
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15471	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15472	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15473	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15474	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15475	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15476
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15477	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15478
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15479	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15480	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15481	name: windowSpec
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15482	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15483	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15484	label: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15485	name: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15486	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15487	bounds: (Rectangle 0 0 613 685)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15488	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15489	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15490	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15491	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15492	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15493	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15494	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	15495	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15496	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15497	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15498	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15499	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15500	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15501	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15502	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15503	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15504	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15505	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15506	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15507	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15508	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15509	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15510	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15511	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15512	name: 'Box1'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15513	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15514	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15515	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15516	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15517	label: 'Space around Temporaries'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15518	name: 'CheckBox3'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15519	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15520	model: spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15521	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15522	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15523	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15524	label: 'Blank line after local Var Declaration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15525	name: 'CheckBox4'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15526	layout: (LayoutFrame 270 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15527	model: emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15528	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15529	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15530	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15531
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15532	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15533	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15534	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15535	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15536	name: 'Box11'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15537	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15538	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15539	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15540	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15541	label: 'Space after ''^'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15542	name: 'CheckBox5'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15543	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15544	model: spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15545	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15546	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15547	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15548	label: 'Space after '':'' in Keywords'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15549	name: 'CheckBox6'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15550	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15551	model: spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15552	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15553	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15554	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15555
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15556	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15557	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15558	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15559	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15560	name: 'Box15'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15561	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15562	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15563	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15564	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15565	label: 'Space after ''['''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15566	name: 'CheckBox9'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15567	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15568	model: spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15569	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15570	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15571	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15572	label: 'Space before '']'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15573	name: 'CheckBox10'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15574	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15575	model: spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15576	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15577	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15578	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15579
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15580	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15581	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15582	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15583	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15584	name: 'Box12'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15585	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15586	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15587	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15588	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15589	label: 'C-Style Blocks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15590	name: 'CheckBox8'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15591	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15592	model: cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15593	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15594	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15595	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15596	label: 'Block Args on new Line'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15597	name: 'CheckBox7'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15598	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15599	model: blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15600	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15601	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15602	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15603
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15604	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15605	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15606	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15607	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15608	name: 'Box13'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15609	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15610	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15611	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15612	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15613	label: 'Indent:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15614	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15615	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15616	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15617	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15618	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15619	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15620	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15621	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15622	model: tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15623	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15624	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15625	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15626	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15627	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15628	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15629	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15630
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15631	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15632	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15633	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15634	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15635	name: 'Box16'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15636	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15637	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15638	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15639	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15640	label: 'Max Length for Single Line Blocks:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15641	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15642	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15643	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15644	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15645	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15646	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15647	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15648	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15649	model: maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15650	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15651	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15652	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15653	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15654	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15655	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15656	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15657
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15658	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15659	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15660	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15661	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15662	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15663	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15664	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15665	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15666	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15667	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15668	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15669	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15670	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15671	label: 'Reset to ST/X Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15672	name: 'Button1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15673	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15674	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15675	model: resetToStxDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15676	extent: (Point 300 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15677	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15678	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15679	label: 'Reset to RefactoryBrowser Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15680	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15681	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15682	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15683	model: resetToRBDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15684	extent: (Point 301 22)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15685	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15686	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15687
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15688	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15689	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15690	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15691	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15692
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15693	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15694	extent: (Point 613 180)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15695	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15696	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15697	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15698	extent: (Point 613 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15699	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15700	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15701	name: 'Box14'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15702	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15703	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15704	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15705	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15706	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15707	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15708	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15709	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15710	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15711	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15712	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15713	name: 'TextEditor3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15714	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15715	model: editorText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15716	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15717	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15718	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15719	hasKeyboardFocusInitially: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15720	postBuildCallback: postBuildTextEditor:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15721	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15722	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15723
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15724	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15725	extent: (Point 613 453)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15726	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15727	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15728
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15729	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15730	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15731	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15732	label: 'Auto Format'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15733	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15734	layout: (LayoutFrame 3 0 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15735	model: autoFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15736	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15737	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15738	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15739
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15740	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15741	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15742	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15743
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15744	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15745
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15746	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15747	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15748
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15749	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15750	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15751	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15752	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15753	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15754	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15755	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15756	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15757	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15758	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15759	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15760	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15761	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15762	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15763	from:RBFormatter.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15764
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15765	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15766	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15767	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15768	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15769	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15770
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15771	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15772
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15773	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15774	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15775	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15776	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15777	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15778	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15779	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15780	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15781	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15782	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15783	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15784	RBFormatter
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15785	tabIndent:self tabIndent value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15786	spaceAroundTemporaries:self spaceAroundTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15787	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15788	spaceAfterReturnToken:self spaceAfterReturnToken value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15789	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15790	spaceAfterBlockStart:self spaceAfterBlockStart value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15791	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15792	cStyleBlocks:self cStyleBlocks value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15793	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15794	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15795	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15796
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15797	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15798
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15799	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15800	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15801	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15802	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
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	reformatLocked ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15805	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15806	"/ temporary change the RBFormatters settings ...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15807	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15808	s_tabIndent := RBFormatter tabIndent.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15809	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15810	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15811	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15812	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15813	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15814	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15815	s_cStyleBlocks := RBFormatter cStyleBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15816	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15817	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15818
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15819	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15820	tabIndent:self tabIndent value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15821	spaceAroundTemporaries:self spaceAroundTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15822	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15823	spaceAfterReturnToken:self spaceAfterReturnToken value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15824	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15825	spaceAfterBlockStart:self spaceAfterBlockStart value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15826	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15827	cStyleBlocks:self cStyleBlocks value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15828	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15829	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15830
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15831	"/ tree := RBParser
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15832	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15833	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15834	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15835	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15836	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15837	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15838	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15839	"/ self editorText value:tree printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15840	self editorText value:(RBFormatter format:(self class exampleText)).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15841
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15842	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15843	tabIndent:s_tabIndent;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15844	spaceAroundTemporaries:s_spaceAroundTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15845	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15846	spaceAfterReturnToken:s_spaceAfterReturnToken;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15847	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15848	spaceAfterBlockStart:s_spaceAfterBlockStart;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15849	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15850	cStyleBlocks:s_cStyleBlocks;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15851	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15852	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15853	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15854	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15855
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15856	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15857
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15858	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15859	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15860	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15861	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15862	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15863	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15864	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15865	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15866	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15867	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15868	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15869	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15870	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15871	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15872
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15873	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15874
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15875	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15876	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15877	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15878	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15879	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15880	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15881	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15882	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15883	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15884	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15885	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15886	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15887	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15888	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15889
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15890	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15891
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15892	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15893
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15894	autoFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15895	autoFormat := currentUserPrefs autoFormatting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15896	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15897	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15898	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15899	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15900
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15901	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15902
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15903	blockArgumentsOnNewLine isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15904	blockArgumentsOnNewLine := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15905	blockArgumentsOnNewLine addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15906	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15907	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15908	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15909
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15910	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15911
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15912	cStyleBlocks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15913	cStyleBlocks := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15914	cStyleBlocks addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15915	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15916	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15917	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15918
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15919	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15920
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15921	editorText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15922	editorText := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15923	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15924	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15925	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15926
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15927	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15928
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15929	emptyLineAfterTemporaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15930	emptyLineAfterTemporaries := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15931	emptyLineAfterTemporaries addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15932	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15933	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15934	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15935
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15936	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15937
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15938	maxLengthForSingleLineBlocks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15939	maxLengthForSingleLineBlocks := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15940	maxLengthForSingleLineBlocks addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15941	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15942	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15943	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15944
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15945	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15946
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15947	spaceAfterBlockStart isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15948	spaceAfterBlockStart := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15949	spaceAfterBlockStart addDependent:self.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15950	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15951	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15952	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15953
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15954	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15955
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15956	spaceAfterKeywordSelector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15957	spaceAfterKeywordSelector := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15958	spaceAfterKeywordSelector addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15959	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15960	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15961	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15962
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15963	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15964
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15965	spaceAfterReturnToken isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15966	spaceAfterReturnToken := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15967	spaceAfterReturnToken addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15968	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15969	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15970	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15971
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15972	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15973
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15974	spaceAroundTemporaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15975	spaceAroundTemporaries := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15976	spaceAroundTemporaries addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15977	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15978	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15979	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15980
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15981	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15982
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15983	spaceBeforeBlockEnd isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15984	spaceBeforeBlockEnd := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15985	spaceBeforeBlockEnd addDependent:self.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15986	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15987	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15988	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15989
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15990	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15991
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15992	tabIndent isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15993	tabIndent := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15994	tabIndent addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15995	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15996	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15997	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15998
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15999	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16000
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16001	update:something with:aParameter from:changedObject
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16002	(changedObject == self blockArgumentsOnNewLine
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16003	or:[ changedObject == self cStyleBlocks
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16004	or:[ changedObject == self emptyLineAfterTemporaries
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16005	or:[ changedObject == self maxLengthForSingleLineBlocks
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16006	or:[ changedObject == self spaceAfterKeywordSelector
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16007	or:[ changedObject == self spaceAfterReturnToken
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16008	or:[ changedObject == self spaceAfterBlockStart
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16009	or:[ changedObject == self spaceBeforeBlockEnd
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16010	or:[ changedObject == self spaceAroundTemporaries
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16011	or:[ changedObject == self tabIndent]]]]]]]]])
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	16012	ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16013	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16014	self reformat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16015	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16016	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16017	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16018	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16019	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16020	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16021	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16022
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16023	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16024
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16025	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16026	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16027	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16028
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16029	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16030
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16031	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16032	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16033
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16034	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16035	RBFormatter isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16036	^ self warn:'Sorry, no RBFormatter class'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16037	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16038	RBFormatter isLoaded ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16039	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16040	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16041	reformatLocked := false.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16042
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16043	"Modified: / 08-02-2017 / 00:30:17 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16044	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16045
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16046	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16047
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16048	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16049	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16050	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16051
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16052	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16053
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16054	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16055	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16056
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16057	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16058	hasChangedAspectIn:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16059	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16060	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16061	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16062	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16063	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16064	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16065	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16066	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16067	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16068	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16069	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16070	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16071	asComparedTo:RBFormatter) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16072
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16073	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16074	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16075
11325 0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16076	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'documentation'!
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16077
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16078	documentation
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16079	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16080	this is the old (now obsolete) settings app, which was used until multiple
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16081	managers were supported (i.e. when only the CVSSourceCodeManager was available).
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16082	It has been split into a generic part (manager-to-module assignment),
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16083	and per-manager subapplications.
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16084	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16085	! !
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16086
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16087	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16088
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16089	helpSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16090	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16091	by the UIHelpTool of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16092
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16093	"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	16094	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	16095
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16096	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16097	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16098	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16099
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16100	<resource: #help>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16101
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16102	^ super helpSpec addPairsFrom:#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16103
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16104	#addPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16105	'Add a new per-package manager definition'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16106
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16107	#browseSourceCache
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16108	'Open a file browser on the source cache directory'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16109
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16110	#checkClassesWhenCheckingIn
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16111	'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	16112
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16113	#checkPerPackageManager
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16114	'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	16115
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16116	#condenseSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16117	'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	16118
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16119	#defaultManagerType
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16120	'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	16121
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16122	#editPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16123	'Modify the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16124
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16125	#fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16126	'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	16127
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16128	#flushSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16129	'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	16130
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16131	#keepMethodSourceInImage
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16132	'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	16133
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16134	#moveManagerDown
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16135	'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	16136
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16137	#moveManagerUp
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16138	'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	16139
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16140	#perPackageConfiguration
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16141	'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	16142
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16143	#removePerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16144	'Remove the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16145
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16146	#sourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16147	'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	16148
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16149	#useLocalSources
13222 e5ff6ff1acb5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13220 diff changeset	16150	'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	16151
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16152	#useManager
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16153	'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	16154
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16155	#verboseSourceCodeAccess
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16156	'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	16157
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16158	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16159
67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16160	"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	16161	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16162
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16163	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16164
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16165	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16166	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16167	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16168
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16169	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16170	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16171
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16172	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16173	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16174	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16175	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16176	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16177
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16178	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16179
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16180	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16181	constantNamed:'AbstractSettingsApplication::SourceCodeManagementSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16182	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16183	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16184	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16185	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16186	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16187	@@@@@@@@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	16188	EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16189	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	16190	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	16191	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16192
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16193	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16194
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16195	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16196	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16197	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16198
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16199	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16200	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16201
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16202	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16203	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16204	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16205	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16206	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16208	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16209
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16210	^
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16211	#(FullSpec
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16212	name: windowSpec
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16213	window:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16214	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16215	label: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16216	name: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16217	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16218	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16219	bounds: (Rectangle 0 0 660 639)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16220	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16221	component:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16222	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16223	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16224	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16225	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16226	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	16227	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16228	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16229	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16230	verticalSpace: 20
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16231	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16232	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16233	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16234	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16235	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16236	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16237	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16238	horizontalSpace: 3
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16239	verticalSpace: 2
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16240	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16241	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16242	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16243	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16244	name: 'Box3'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16245	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16246	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16247	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16248	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16249	label: 'Sourcecode Management'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16250	name: 'SourcecodeManagementCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16251	layout: (LayoutFrame 5 0 0 0.0 332 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16252	activeHelpKey: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16253	model: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16254	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16255	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16256	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16257	name: 'ComboList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16258	layout: (LayoutFrame -151 1 0 0 -5 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16259	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16260	visibilityChannel: moreThanOneManagerTypesAvailable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16261	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16262	model: selectedManagerTypeIndexHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16263	comboList: availableManagerTypeNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16264	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16265	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16266	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16267	label: 'Default Repository Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16268	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16269	layout: (AlignmentOrigin -154 1 16 0 1 0.5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16270	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16271	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16272	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16273	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16274	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16275	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16276
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16277	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16278	extent: (Point 660 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16279	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16280	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16281	label: 'Per Package Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16282	name: 'PerPackageConfiguration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16283	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16284	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16285	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16286	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16287	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16288	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16289	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16290	name: 'RepositoryConfigurations'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16291	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16292	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16293	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16294	verticalLayout: bottomFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16295	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16296	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16297	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16298	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16299	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16300	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16301	name: 'RepositoryConfigurationListBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16302	activeHelpKey: perPackageConfiguration
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16303	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16304	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16305	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16306	(DataSetSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16307	name: 'RepositoryConfigurationList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16308	layout: (LayoutFrame 0 0 0 0 -122 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16309	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16310	model: selectedManagerPerMatchingModuleHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16311	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16312	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16313	dataList: managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16314	columnHolder: managerPerMatchingModuleColumns
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16315	beDependentOfRows: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16316	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16317	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16318	name: 'Buttons1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16319	layout: (LayoutFrame -121 1 0 0 0 1 -22 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16320	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16321	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16322	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16323	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16324	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16325	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16326	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16327	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16328	label: 'Add...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16329	name: 'ButtonAdd'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16330	activeHelpKey: addPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16331	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16332	model: actionAdd
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16333	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16334	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16335	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16336	label: 'Edit...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16337	name: 'ButtonEdit'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16338	activeHelpKey: editPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16339	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16340	model: actionEdit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16341	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16342	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16343	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16344	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16345	label: 'Move Up'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16346	name: 'ButtonModeUp'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16347	activeHelpKey: moveManagerUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16348	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16349	model: actionMoveUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16350	enableChannel: canMoveUp
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16351	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16352	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16353	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16354	label: 'Move Down'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16355	name: 'ButtonModeDown'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16356	activeHelpKey: moveManagerDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16357	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16358	model: actionMoveDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16359	enableChannel: canMoveDown
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16360	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16361	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16362	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16363	name: 'SpacingLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16364	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16365	extent: (Point 121 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16366	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16367	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16368	label: 'Remove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16369	name: 'ButtonRemove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16370	activeHelpKey: removePerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16371	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16372	model: actionRemove
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16373	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16374	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16375	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16376	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16377
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16378	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16379	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16380	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16381	label: 'Test'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16382	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16383	layout: (LayoutFrame -90 1 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16384	activeHelpKey: checkPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16385	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16386	model: actionTest
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16387	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16388	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16389
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16390	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16391	extent: (Point 618 258)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16392	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16393	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16394
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16395	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16396	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16397	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16398
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16399	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16400	extent: (Point 660 300)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16401	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16402	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16403	label: 'Source Cache'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16404	name: 'SourceCacheBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16405	activeHelpKey: sourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16406	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16407	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16408	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16409	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16410	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16411	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16412	name: 'SourceCacheDirBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16413	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	16414	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16415	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16416	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16417	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16418	name: 'FilenameEntryField1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16419	layout: (LayoutFrame 64 0.25 0 0 -2 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16420	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16421	model: sourceCacheDir
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16422	immediateAccept: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16423	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16424	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16425	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16426	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16427	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16428	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16429	label: 'Source Cache Dir:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16430	name: 'SourceCacheDirLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16431	layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16432	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16433	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16434	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16435	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16436
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16437	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16438	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16439	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16440	name: 'CacheActionsHorizontalPanel1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16441	layout: (LayoutFrame 0 0 37 0 -1 1 67 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16442	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16443	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16444	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16445	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16446	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16447	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16448	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16449	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16450	label: 'Fill Cache'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16451	name: 'FillCacheInBackgroundButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16452	activeHelpKey: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16453	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16454	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16455	model: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16456	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16457	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16458	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16459	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16460
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16461	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16462	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16463	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16464	name: 'CacheActionsHorizontalPanel2'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16465	layout: (LayoutFrame 0 0 70 0 -1 1 100 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16466	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16467	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16468	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16469	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16470	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16471	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16472	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16473	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16474	label: 'Browse'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16475	name: 'Button3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16476	activeHelpKey: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16477	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16478	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16479	model: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16480	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16481	extent: (Point 171 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16482	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16483	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16484	name: 'Box5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16485	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16486	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16487	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16488	label: 'Flush'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16489	name: 'Button4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16490	activeHelpKey: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16491	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16492	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16493	model: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16494	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16495	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16496	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16497	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16498	label: 'Condense'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16499	name: 'Button5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16500	activeHelpKey: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16501	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16502	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16503	model: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16504	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16505	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16506	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16507	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16508
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16509	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16510	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16511	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16512
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16513	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16514	extent: (Point 660 136)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16515	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16516	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16517	name: 'UseLocalSourceBox'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16518	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16519	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16520	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16521	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16522	label: 'If Present, Use Local Source (Suppress Checkout)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16523	name: 'CheckBox4'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16524	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16525	activeHelpKey: useLocalSources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16526	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16527	model: localSourceFirst
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16528	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16529	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16530	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16531
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16532	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16533	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16534	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16535	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16536	name: 'KeepMethodSourceBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16537	activeHelpKey: keepMethodSourceInImage
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16538	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16539	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16540	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16541	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16542	label: 'Keep Method Source (In Image)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16543	name: 'CheckBox7'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16544	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16545	activeHelpKey: keepMethodSourceInImage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16546	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16547	model: keepMethodSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16548	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16549	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16550	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16551
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16552	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16553	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16554	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16555	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16556	name: 'CheckForHaltSendsBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16557	activeHelpKey: checkClassesWhenCheckingIn
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16558	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16559	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16560	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16561	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16562	label: 'Check for halt/error-Sends when Checking in'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16563	name: 'CheckBox5'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16564	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16565	activeHelpKey: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16566	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16567	model: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16568	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16569	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16570	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16571
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16572	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16573	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16574	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16575	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16576	name: 'VerboseBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16577	activeHelpKey: verboseSourceCodeAccess
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16578	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16579	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16580	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16581	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16582	label: 'Verbose (Trace Operations on Transcript)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16583	name: 'CheckBox6'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16584	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16585	activeHelpKey: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16586	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16587	model: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16588	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16589	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16590	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16591
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16592	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16593	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16594	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16595	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16596
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16597	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16598	extent: (Point 660 768)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16599	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16600	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16601
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16602	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16603	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16604	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16605
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16606	)
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16607	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16608	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16609
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16610	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16611
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16612	managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16613	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16614	by the DataSetBuilder of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16615
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16616	"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	16617	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	16618
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16619	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16620	DataSetBuilder new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16621	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16622
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16623	<resource: #tableColumns>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16624
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16625	^#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16626	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16627	label: 'Module (PackageID Match)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16628	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16629	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16630	model: displayStringForPackage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16631	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16632	writeSelector: package:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16633	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16634	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16635	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16636	label: 'Repository Type'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16637	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16638	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16639	model: displayStringForManagerTypeName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16640	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16641	writeSelector: manager:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16642	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16643	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16644	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16645
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16646	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16647
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16648	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16649
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16650	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16652	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16653	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16654
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16655	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16656
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16657	actionAdd
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16658	\|dlg package mgr oldEntry idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16659
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16660	dlg := PerModuleManagerSettingDialog new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16661	dlg open ifFalse:[ ^ self ].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16662	package := dlg package.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16663	mgr := dlg manager.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16664	oldEntry := managerPerMatchingModule
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16665	detect:[:entry \| entry package = package and:[ entry manager = mgr ] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16666	ifNone:nil.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16667	oldEntry notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16668	ifTrue:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16669	[ oldEntry manager:mgr.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16670	managerPerMatchingModule changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16671	idx := managerPerMatchingModule indexOf:oldEntry. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16672	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16673	[ managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16674	add:(AbstractSourceCodeManager::PackageAndManager package:package manager:mgr).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16675	idx := managerPerMatchingModule size. ].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16676	selectedManagerPerMatchingModuleHolder value:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16677
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16678	"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	16679	"Modified: / 18-04-2011 / 21:24:52 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16680	"Modified: / 09-07-2011 / 14:07:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16681	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16682
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16683	actionEdit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16684	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16685
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16686	\| entry dlg \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16687	entry := managerPerMatchingModule at: selectedManagerPerMatchingModuleHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	16688	dlg := PerModuleManagerSettingDialog new.
10301 1ec2ef0050ca Fix vrany parents: 10299 diff changeset	16689	dlg package: entry package.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16690	dlg manager: entry manager.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16691	dlg open ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16692	entry package: dlg package.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16693	entry manager: dlg manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16694	entry changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16695	self updateModifiedChannel.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16696	]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16697
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	16698	"Modified: / 29-03-2012 / 11:53:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16699	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16700
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16701	actionMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16702	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16703
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16704	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16705	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16706	idx == managerPerMatchingModule size ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16707	managerPerMatchingModule swap: idx with: idx + 1.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16708	selectedManagerPerMatchingModuleHolder value: idx + 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16709
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16710	"Modified: / 09-07-2011 / 13:23:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16711	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16712
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16713	actionMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16714	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16715
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16716	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16717	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16718	idx == 1 ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16719	managerPerMatchingModule swap: idx - 1 with: idx.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16720	selectedManagerPerMatchingModuleHolder value: idx - 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16721
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16722	"Modified: / 09-07-2011 / 13:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16723	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16724
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16725	actionRemove
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16726	\|idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16727
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16728	idx := self selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16729	managerPerMatchingModule removeIndex:idx.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16730	managerPerMatchingModule size >= idx
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16731	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16732	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16733	[ managerPerMatchingModule size >= (idx - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16734	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx - 1. ]. ].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16735
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16736	"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	16737	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16738
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16739	actionTest
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16740	<resource: #uiCallback>
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16741
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16742	Tools::SourceCodeManagerConfigurationTestTool open
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16743
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16744	"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	16745	!
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16746
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16747	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16748	(self listOfModules includes:module) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16749	self listOfModules add:module; sort.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16750	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16751	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16752
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16753	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16754
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16755	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16756	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16757
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16758	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16759	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16760
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16761	self verboseSourceCodeAccess value:(AbstractSourceCodeManager verboseSourceCodeAccess).
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16762	self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16763
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16764	self hasManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16765	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16766	self localSourceFirst value:Class tryLocalSourceFirst.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16767	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16768
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16769	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16770	manager forgetDisabledModules.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16771	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16772	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16773	self useManager value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16774	self localSourceFirst value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16775	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16776
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16777	self managerPerMatchingModule removeAll.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16778	AbstractSourceCodeManager managerPerMatchingModuleDefinitions do:[:each \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16779	self managerPerMatchingModule add: each copy
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16780	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16781
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16782	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16783	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16784
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16785	infoPerModule := eachManager repositoryInfoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16786	infoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16787	rootsPerModule at:module put:(Array with:eachManager with:info).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16788	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16789	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16790
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	16791	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	16792
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16793	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16794
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16795	rootsPerModule notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16796	self listOfModules removeAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16797	listOfModules addAll:rootsPerModule keys asList.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16798	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16799	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16800
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16801	"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	16802	"Modified (format): / 27-07-2012 / 12:36:19 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16803	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16804
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16805	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16806	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16807
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16808	AbstractSourceCodeManager verboseSourceCodeAccess:(self verboseSourceCodeAccess value).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16809	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16810	Class tryLocalSourceFirst:self localSourceFirst value.
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16811	currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16812
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16813	(self hasManager and:[self useManager value]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16814	manager ~~ self selectedManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16815	manager := nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16816	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16817
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16818	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16819	manager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16820	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16821	manager := self availableManagers first.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16822	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16823	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16824	Smalltalk at:#SourceCodeManager put:manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16825
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16826	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16827	\| nm fn\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16828
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16829	nm := self sourceCacheDir value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16830	nm notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16831	(fn := nm asFilename) exists ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16832	(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16833	fn recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16834	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16835	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16836	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16837	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16838	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16839	(fn isWritableDirectory and:[fn isReadable]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16840	AbstractSourceCodeManager cacheDirectoryName:nm.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16841	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16842	self warn:'Invalid sourceCache directory.'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16843	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16844	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16845	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16846
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16847	AbstractSourceCodeManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16848	managerPerMatchingModuleDefinitions:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16849	managerPerMatchingModule asOrderedCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16850
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16851	self availableManagers do:[:eachManager \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16852	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16853
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16854	modules := rootsPerModule select:[:entry \| entry first == eachManager].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16855	infoPerModule := Dictionary new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16856	modules keysAndValuesDo:[:module :entry \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16857	entry first == eachManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16858	infoPerModule at:module put:(entry second).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16859	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16860	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16861	eachManager repositoryInfoPerModule:infoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16862	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16863
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16864	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16865
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16866	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16867	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16868	Smalltalk at:#SourceCodeManager put:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16869	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16870
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	16871	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	16872
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16873	"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	16874	"Modified: / 27-07-2012 / 12:36:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16875	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16876
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16877	browseSourceCache
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16878	<resource: #uiCallback>
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16879
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16880	\|cacheDir\|
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16881
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16882	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16883	cacheDir isNil ifTrue:[
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16884	AbstractSourceCodeManager cachingSources ifTrue:[
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16885	AbstractSourceCodeManager initCacheDirPath.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16886	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16887	cacheDir isNil ifTrue:[
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16888	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	16889	^ self.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16890	].
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16891	] ifFalse:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16892	(Dialog confirm:'No cache directory defined. Setup now?') ifTrue:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16893	AbstractSourceCodeManager cachingSources:true.
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16894	self browseSourceCache
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16895	].
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16896	].
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16897	].
17653 091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	16898	FileBrowser default openOn:cacheDir
091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	16899
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16900	"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	16901	"Modified: / 01-09-2017 / 14:03:40 / cg"
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16902	!
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16903
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16904	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16905	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16906	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16907
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16908	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16909	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16910
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16911	fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16912	\|p\|
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16913
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16914	FillCacheProcess notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16915	FillCacheProcess terminate
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16916	].
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16917	FillCacheProcess := p :=
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16918	[
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16919	Transcript showCR:'Fill cache background process started...'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16920	[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16921	Smalltalk allClasses do:[:eachClass \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16922	eachClass source
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16923	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16924	] ensure:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16925	(FillCacheProcess == p) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16926	FillCacheProcess := nil
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16927	].
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16928	Transcript showCR:'Fill cache background process finished.'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16929	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16930	] forkAt:(Processor systemBackgroundPriority)
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16931
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16932	"Modified: / 19-06-2017 / 17:26:29 / cg"
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16933	!
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16934
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16935	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16936	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16937
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16938	"Modified: / 30-09-2011 / 13:34:01 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16939	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16940
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16941	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16942
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16943	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16944
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16945	acceptChannel value:true.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16946	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	16947	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16948	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16949	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16950	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	16951	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16952	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16953
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16954	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16956	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
18722 be7f278206d9 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 18720 diff changeset	16957	manager := Smalltalk at:#SourceCodeManager.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16958	manager notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16959	repositoryHolder value: manager repositoryName.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16960	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16961	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16962
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16963	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16964	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16965
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16966	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16967
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16968	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16969
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16970	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16971	acceptChannel := TriggerValue new.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16972	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16973	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16974	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16975
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16976	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16977	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16978
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16979	"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	16980	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16981
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16982	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16983	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16984	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16985	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	16986	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16987	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16988
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16989	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16990	self basicNew availableManagers
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16991	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16992
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16993	"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	16994	"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	16995	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16996
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16997	canMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16998	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16999	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17000	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17001	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17002	and:[sel ~~ 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17003	and:[sel ~~ managerPerMatchingModule size]]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17004	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17005
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17006	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17007	"Created: / 09-07-2011 / 14:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17008	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17009
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17010	canMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17011	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17012	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17013	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17014	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17015	and:[sel > 1]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17016	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17017
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17018	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17019	"Created: / 09-07-2011 / 14:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17020	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17021
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17022	canRemoveManagerPerPackageEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17023	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17024	with:[:sel :use \| sel notNil and:[sel ~~ 0 and:[use]] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17025	argument:(self selectedManagerPerMatchingModuleHolder)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17026	argument:(self useManager)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17027
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17028	"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	17029	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17030
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17031	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17032
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17033	checkClassesWhenCheckingIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17034	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17035	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17036	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17037	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17038	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17039
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17040	keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17041
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17042	keepMethodSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17043	keepMethodSource := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17044	keepMethodSource onChangeSend:#updateModifiedChannel to:self
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17045	].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17046	^ keepMethodSource.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17047	!
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17048
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17049	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17050
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17051	listOfModules isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17052	rootsPerModule notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17053	listOfModules := rootsPerModule keys asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17054	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17055	listOfModules sort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17056	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17057	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17058	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17059	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17060
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17061	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17062
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17063	localSourceFirst isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17064	localSourceFirst := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17065	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17066	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17067	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17068	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17069
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17070	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17071	managerIsCVSSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17072	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17073	[SourceCodeManager isCVS]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17074	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17075	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17076
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17077	"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	17078	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17079
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17080	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17081	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17082	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17083	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17084	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17085	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17086
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17087	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17088	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17089
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17090	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17091	managerIsStoreSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17092	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17093	[SourceCodeManager isStore]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17094	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17095	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17096
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17097	"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	17098	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17099
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17100	managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17101	managerPerMatchingModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17102	managerPerMatchingModule := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17103	managerPerMatchingModule onChangeSend:#updateModifiedChannel to:self
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17104	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17105	^ managerPerMatchingModule.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17106
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17107	"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	17108	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17109
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17110	managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17111	managerTypeIndexToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17112	managerTypeIndexToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17113	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17114	^ managerTypeIndexToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17115
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17116	"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	17117	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17118
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17119	managerTypeToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17120	managerTypeToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17121	managerTypeToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17122	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17123	^ managerTypeToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17124
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17125	"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	17126	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17127
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17128	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17129	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17130
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17131	"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	17132	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17133
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17134	packageToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17135	packageToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17136	packageToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17137	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17138	^ packageToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17139
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17140	"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	17141	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17142
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17143	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17144
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17145	perModuleFieldsEnableHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17146	perModuleFieldsEnableHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17147	perModuleFieldsEnableHolder addDependent:self.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17148	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17149	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17150	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17151
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17152	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17153	perModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17154	perModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17155	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17156	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17157	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17158	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17159
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17160	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17161	perModuleRootModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17162	perModuleRootModule := ValueHolder new.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17163	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17164	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17165	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17166
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17167	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17168
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17169	removeEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17170	removeEnabled := false asValue.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17171	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17172	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17173	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17174
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17175	selectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17176	\|idx availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17177
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17178	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17179	availableManagers size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17180	^ availableManagers anElement
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17181	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17182
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17183	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17184	(idx == 0 or:[idx isNil]) ifTrue:[ ^ nil].
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17185	^ availableManagers at:idx
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17186
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17187	"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	17188	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17189
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17190	selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17191	selectedManagerPerMatchingModuleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17192	selectedManagerPerMatchingModuleHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17193	selectedManagerPerMatchingModuleHolder addDependent:self.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17194	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17195	^ selectedManagerPerMatchingModuleHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17196
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17197	"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	17198	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17199
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17200	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17201	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17202
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17203	selectedManagerTypeIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17204	selectedManagerTypeIndexHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17205	selectedManagerTypeIndexHolder onChangeEvaluate:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17206	selectedManager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17207	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17208	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17209	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17210	self updateModifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17211	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17212
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17213	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17214	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17215	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17216
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17217	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17218	"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	17219	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17220
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17221	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17222	selectedPerModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17223	selectedPerModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17224	selectedPerModuleRoot addDependent:self.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17225	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17226	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17227	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17229	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17230	sourceCacheDir isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17231	sourceCacheDir := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17232	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17233	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17234	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17235	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17236
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17237	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17238	useManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17239	useManager := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17240	useManager onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17241	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17242	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17243	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17244
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17245	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17246	verboseSourceCodeAccess isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17247	verboseSourceCodeAccess := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17248	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17249	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17250	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17251	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17252
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17253	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17254
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17255	selectedPerModuleRootChanged
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17256	\|module entry firstEntry
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17257	newRemoveEnabled newPerModuleRootModule newPerModuleRoot\|
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17258
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17259	self acceptChannel value:true.
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17260
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17261	newRemoveEnabled := false.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17262	newPerModuleRootModule := ' '.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17263	newPerModuleRoot := ''.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17264
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17265	module := self selectedPerModuleRoot value.
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17266	module notNil ifTrue:[
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17267	entry := rootsPerModule at:module ifAbsent:#().
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17268	firstEntry := entry first.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17269	(firstEntry = CVSSourceCodeManager) ifTrue:[
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17270	newRemoveEnabled := true.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17271	newPerModuleRootModule := module.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17272	newPerModuleRoot := (entry at:2).
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17273	] ifFalse:[
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17274	newPerModuleRootModule := module, ' ',('<< use ',firstEntry managerTypeName,' >>') allBold.
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17275	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17276	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17277
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17278	self removeEnabled value:newRemoveEnabled.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17279	self perModuleRootModule value:newPerModuleRootModule.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17280	self perModuleRoot value:newPerModuleRoot.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17281
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17282	"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	17283	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17284
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17285	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17286	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17287
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17288	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17289
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17290	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17291
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17292	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17293	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17294
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17295	(fn := nm asFilename) exists ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17296	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17297	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17298	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17299	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17300	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17301	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17302	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17303	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17304	recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17305	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17306	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17307	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17308	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17309	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17310
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17311	(fn isDirectory) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17312	self warn:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17313	stringWithCRs:'Not a directory: "%1"'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17314	with:nm).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17315	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17316	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17317	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17318
13243 6184dc32e5cb Use #isWritableDirectory Stefan Vogel <sv@exept.de> parents: 13224 diff changeset	17319	(fn isWritableDirectory and:[fn isReadable]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17320	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17321	stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17322	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17323	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17324	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17325	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17326	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17327	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17328	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17329	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17330	makeExecutableForAll.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17331	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17332	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17333	"/ (self confirm:(resources
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17334	"/ 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	17335	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17336	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17337	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17338	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17339	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17340	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17341	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17342	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17343	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17344
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17345	update:something with:aParameter from:changedObject
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17346	\|idx entry\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17347
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17348	changedObject == sourceCacheDir ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17349	self sourceDirChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17350	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17351	^ self
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17352	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17353
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17354	changedObject == selectedManagerPerMatchingModuleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17355	idx := changedObject value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17356	(idx notNil and:[idx ~~ 0]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17357	entry := self managerPerMatchingModule at:idx.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17358	self packageToAddHolder value:(entry package).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17359	self managerTypeToAddHolder value:(entry managerTypeName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17360	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17361	^ self.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17362	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17363
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17364	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17365
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17366	"Modified: / 18-04-2011 / 21:23:08 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17367	"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	17368	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17369
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17370	updateSelectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17371	\|selectedManagerTypeIndex availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17372
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17373	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17374
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17375	selectedManagerTypeIndex := availableManagers indexOf:SourceCodeManager.
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17376	selectedManagerTypeIndex == 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17377	availableManagers size == 1 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17378	selectedManagerTypeIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17379	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17380	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	17381	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17382	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17383
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17384	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17385
14252 0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17386	editorHelpRelativeWikiURL
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17387	"the relative URL of the dialog-description in the Wiki"
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17388
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17389	^ 'Settings_SourceCodeManagerSettings'
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17390	!
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17391
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17392	helpFilename
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17393	^ 'Launcher/sourceRepositorySetup.html'
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17394
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17395	"Modified: / 04-07-2011 / 17:22:39 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17396	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17397
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17398	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17400	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17401	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17402
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17403	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17404
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17405	managerTypePerModule := Dictionary new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17406
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17407	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	17408	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17409
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17410	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17411	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17412
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17413	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17414	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17415
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17416	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17417	eachManager repositoryInfoPerModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17418	keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17419	module withoutSeparators ~= module ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17420	self halt:'should not happen any longer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17421	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17422	rootsPerModule at:module put:(Array with:eachManager with:info)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17423	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17424	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17425
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17426	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17427
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17428	"Modified: / 08-02-2017 / 00:30:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17429	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17430
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17431	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17432
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17433	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17434	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17435
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17436	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17437	cvsDir isDirectory ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17438	cvsRootFile := cvsDir construct:'Root'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17439	cvsRootFile isReadable ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17440	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17441	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17442	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17443	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17444	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17445
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17446	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17447	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17448
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17449	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17450	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17451
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17452	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17453	(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	17454	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17455	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17456
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17457	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17458	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17459
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17460	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17461	ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17462
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17463	((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17464	ifTrue:[^ true].
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17465
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17466	((AbstractSourceCodeManager managerPerMatchingModuleDefinitions)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17467	~= (self managerPerMatchingModule asOrderedCollection)) ifTrue:[^ true].
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17468
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17469	(AbstractSourceCodeManager verboseSourceCodeAccess
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17470	~= self verboseSourceCodeAccess value) ifTrue:[^ true].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17471
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17472	self availableManagers do:[:mgr \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17473	\|modules\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17474
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17475	modules := rootsPerModule select:[:entry \| entry first == mgr].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17476
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17477	mgr repositoryInfoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17478	((modules includesKey:module) and:[info = (modules at:module) second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17479	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17480	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17481	modules keysAndValuesDo:[:module :info\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17482	((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17483	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17484	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17485	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17486
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17487	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	17488
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17489	"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	17490	"Modified: / 27-07-2012 / 12:35:40 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17491	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17492
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17493	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'help specs'!
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17494
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17495	helpSpec
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17496	"This resource specification was automatically generated
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17497	by the UIHelpTool of ST/X."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17498
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17499	"Do not manually edit this!! If it is corrupted,
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17500	the UIHelpTool may not be able to read the specification."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17501
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17502	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17503	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17504	"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17505
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17506	<resource: #help>
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17507
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17508	^ super helpSpec addPairsFrom:#(
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17509
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17510	#manager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17511	'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	17512
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17513	#packageMatchPattern
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17514	'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	17515
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17516	)
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17517
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17518	"Created: / 01-12-2011 / 19:52:19 / cg"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17519	! !
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17520
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17521	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'interface specs'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17522
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17523	windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17524	"This resource specification was automatically generated
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17525	by the UIPainter of ST/X."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17526
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17527	"Do not manually edit this!! If it is corrupted,
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17528	the UIPainter may not be able to read the specification."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17529
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17530	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17531	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog andSelector:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17532	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog new openInterface:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17533	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog open
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17534	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17535
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17536	<resource: #canvas>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17537
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17538	^
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17539	#(FullSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17540	name: windowSpec
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17541	uuid: '60fff4f4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17542	window:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17543	(WindowSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17544	label: 'Per Module Source Code Manager'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17545	name: 'Per Module Source Code Manager'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17546	uuid: '60fff846-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17547	min: (Point 10 10)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17548	bounds: (Rectangle 0 0 581 98)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17549	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17550	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17551	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17552	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17553	(ViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17554	name: 'Content'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17555	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	17556	uuid: '60fffab2-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17557	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17558	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17559	collection: (
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17560	(LabelSpec
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17561	label: 'Package ID (Matchpattern):'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17562	name: 'Label15'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17563	layout: (LayoutFrame 2 0 9 0 250 0 31 0)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17564	activeHelpKey: packageMatchPattern
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17565	uuid: '60fffc10-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17566	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17567	adjust: left
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17568	)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17569	(ComboBoxSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17570	name: 'ComboBox1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17571	layout: (LayoutFrame 250 0 9 0 -2 1 31 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17572	activeHelpKey: packageMatchPattern
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17573	uuid: '60fffdb4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17574	enableChannel: useManager
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17575	model: packageHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17576	comboList: samplePackageList
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17577	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17578	(LabelSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17579	label: 'Manager:'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17580	name: 'Label16'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17581	layout: (LayoutFrame 2 0 37 0 250 0 59 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17582	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17583	uuid: '61000048-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17584	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17585	adjust: left
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17586	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17587	(ComboListSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17588	name: 'ComboList2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17589	layout: (LayoutFrame 250 0 39 0 -2 1 61 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17590	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17591	uuid: '61000188-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17592	model: managerNameHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17593	comboList: availableManagerTypeNames
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17594	useIndex: false
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17595	hidePullDownMenuButton: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17596	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17597	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17598
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17599	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17600	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17601	(HorizontalPanelViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17602	name: 'Buttons'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17603	layout: (LayoutFrame 0 0 -30 1 -16 1 0 1)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17604	uuid: '61000336-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17605	horizontalLayout: fit
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17606	verticalLayout: center
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17607	horizontalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17608	verticalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17609	reverseOrderIfOKAtLeft: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17610	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17611	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17612	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17613	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17614	label: 'Cancel'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17615	name: 'Button2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17616	uuid: '610004e4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17617	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17618	model: doCancel
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17619	extent: (Point 279 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17620	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17621	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17622	label: 'OK'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17623	name: 'Button1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17624	uuid: '610006c4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17625	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17626	model: doAccept
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17627	enableChannel: doAcceptEnabled
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17628	extent: (Point 280 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17629	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17630	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17631
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17632	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17633	keepSpaceForOSXResizeHandleH: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17634	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17635	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17636
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17637	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17638	)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17639	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17640
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17641	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'accessing'!
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17642
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17643	manager
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17644
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17645	\| m mn\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17646	mn := self managerNameHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17647	m := self availableManagers detect:[:mgr \| mgr managerTypeName = mn] ifNone:nil.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17648	^m
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17649
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17650	"Created: / 09-07-2011 / 13:07:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17651	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17652
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17653	manager: aSourceCodeManager
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17654
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17655	self managerNameHolder value: aSourceCodeManager managerTypeName
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17656
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17657	"Created: / 09-07-2011 / 13:02:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17658	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17659
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17660	package
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17661
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17662	^self packageHolder value
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17663
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17664	"Created: / 09-07-2011 / 13:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17665	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17666
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17667	package: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17668
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17669	self packageHolder value: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17670
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17671	"Created: / 09-07-2011 / 13:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17672	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17673
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17674	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'aspects'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17675
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17676	availableManagerTypeNames
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17677	^ self availableManagers collect:[:cls \| cls managerTypeName].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17678
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17679	"Created: / 16-08-2006 / 11:16:25 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17680	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17681
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17682	availableManagers
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17683	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17684	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17685	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17686	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17687	^ availableManagers.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17688
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17689	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17690	self basicNew availableManagers
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17691	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17692
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17693	"Created: / 16-08-2006 / 11:01:10 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17694	"Modified: / 18-04-2011 / 19:05:47 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17695	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17696
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17697	doAcceptEnabled
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17698	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17699
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17700	\|holder\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17701
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17702	(holder := builder bindingAt:#doAcceptEnabled) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17703	holder := BlockValue
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17704	with:[:package :manager\|
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17705	package notEmptyOrNil and:[manager notNil]]
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17706	argument: self packageHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17707	argument: self managerHolder.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17708
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17709	builder aspectAt:#doAcceptEnabled put:holder.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17710	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17711	^ holder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17712
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17713	"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	17714	"Modified: / 17-05-2019 / 15:30:00 / Stefan Vogel"
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17715	"Modified (format): / 17-05-2019 / 16:49:27 / Stefan Vogel"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17716	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17717
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17718	managerHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17719	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17720
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17721	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17722	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17723	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17724	^ managerNameHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17725
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17726	"Modified (comment): / 03-12-2011 / 11:30:58 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17727	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17728
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17729	managerNameHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17730	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17731
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17732	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17733	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17734	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17735	^ managerNameHolder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17736
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17737	"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	17738	"Modified (comment): / 03-12-2011 / 11:30:45 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17739	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17740
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17741	packageHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17742	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17743
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17744	packageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17745	packageHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17746	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17747	^ packageHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17748
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17749	"Modified (comment): / 03-12-2011 / 11:30:51 / cg"
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17750	!
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17751
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17752	samplePackageList
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17753	<resource: #uiAspect>
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17754
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17755	\|modules\|
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17756
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	17757	modules := Smalltalk allPackageIDs
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17758	collect:[:packageId \| packageId asPackageId module ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17759	as:Set.
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17760
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	17761	modules remove:(PackageId noProjectID) ifAbsent:[].
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17762	modules := modules collect:[:packageId \| packageId , ':*' ].
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17763	^ modules asSortedCollection
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17764
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17765	"Created: / 12-03-2012 / 11:35:40 / cg"
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	17766	"Modified: / 13-03-2012 / 13:12:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17767	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17769	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17770
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17771	standardStyles
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17772	"only those are presented initially"
db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17773
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17774	^ #(
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17775	'adwaita'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17776	"/ 'decWindows'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17777	'iris'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17778	'macosx'
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17779	'macosx_yosemite'
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17780	'motif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17781	'mswindows8'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17782	'mswindows95'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17783	'mswindowsXP'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17784	'mswindowsxp'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17785	'mswindowsVista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17786	'mswindowsvista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17787	'napkin'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17788	"/ 'next'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17789	"/ 'normal'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17790	"/ 'os2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17791	'sgmotif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17792	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17793	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17794	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17795
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17796	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17797
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17798	closePreviewButtonImage
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17799	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17800	^ ToolbarIconLibrary removeTabIcon
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17801
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17802	"Modified: / 28-07-2018 / 09:59:43 / Claus Gittinger"
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17803	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17804
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17805	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17806	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17807	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17808
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17809	"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	17810	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	17811
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17812	"
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17813	self defaultIcon inspect
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17814	ImageEditor openOnClass:self andSelector:#defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17815	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17816	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17817
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17818	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17819
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17820	^Icon
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17821	constantNamed:'AbstractSettingsApplication::StyleSettingsAppl defaultIcon'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17822	ifAbsentPut:[(Depth8Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17823	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@ D@@@@@@@@@@@@@@@@@@@@@@@DB@ HB@P@@@@@@@@@@@@@@@@@@@@DCA@HB@ DA@@@@@@@@@@@@
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17824	@@@@@@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	17825	@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	17826	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	17827	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	17828	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	17829	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17830
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17831	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17832
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17833	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17834	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17835	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17837	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17838	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17840	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	17841	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	17842	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	17843	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17844	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17845
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17846	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17847
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17848	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17849	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17850	name: windowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17851	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17852	(WindowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17853	label: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17854	name: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17855	min: (Point 10 10)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17856	bounds: (Rectangle 0 0 562 661)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17857	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17858	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17859	(SpecCollection
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17860	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17861	(VariableVerticalPanelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17862	name: 'VariableVerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17863	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -65 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17864	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17865	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17866	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17867	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17868	name: 'Box1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17869	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17870	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17871	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17872	(TextEditorSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17873	name: 'TextEditor1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17874	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	17875	style: (FontDescription arial medium roman 9)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17876	model: noticeLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17877	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17878	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17879	isReadOnly: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17880	hasKeyboardFocusInitially: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17881	postBuildCallback: postBuildHelpLabel:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17882	viewClassName: 'TextView'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17883	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17884	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17885
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17886	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17887	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17888	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17889	name: 'Box2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17890	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17891	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17892	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17893	(VerticalPanelViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17894	name: 'VerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17895	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	17896	horizontalLayout: fit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17897	verticalLayout: topFit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17898	horizontalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17899	verticalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17900	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17901	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17902	collection: (
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17903	(ViewSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17904	name: 'Box4'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17905	component:
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17906	(SpecCollection
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17907	collection: (
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17908	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17909	label: 'standard styles only'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17910	name: 'CheckBox1'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17911	layout: (LayoutFrame 0 0 0 0 -150 1 0 1)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17912	model: showStandardStylesOnly
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17913	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17914	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17915	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17916	label: 'Preview'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17917	name: 'CheckBox2'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17918	layout: (AlignmentOrigin 0 1 17 0 1 0.5)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17919	model: previewVisibleHolder
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17920	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17921	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17922	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17923
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17924	)
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17925	extent: (Point 562 35)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17926	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17927	(SequenceViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17928	name: 'StyleList'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17929	model: selectedStyle
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17930	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17931	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17932	doubleClickSelector: doubleClickAt:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17933	useIndex: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17934	sequenceList: styleList
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17935	extent: (Point 562 334)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17936	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17937	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17938
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17939	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17940	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17941	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17942
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17943	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17944	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17945	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17946
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17947	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17948	handles: (Any 0.37 1.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17949	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17950	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17951	name: 'Box3'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17952	layout: (LayoutFrame 0 0 -65 1 0 1 0 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17953	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17954	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17955	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17956	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17957	label: 'Label'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17958	name: 'Label1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17959	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	17960	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17961	labelChannel: infoLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17962	resizeForLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17963	adjust: left
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17964	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17965	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17966
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17967	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17968	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17969	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17970	label: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17971	name: 'PreviewLabel'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17972	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17973	level: 0
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17974	borderWidth: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17975	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17976	backgroundColor: (Color 87.0 87.0 87.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17977	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17978	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17979	(NonScrollableArbitraryComponentSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17980	name: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17981	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17982	level: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17983	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17984	hasBorder: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17985	component: ImageView
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17986	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17987	(ActionButtonSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17988	label: 'closePreviewButtonImage'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17989	name: 'ClosePreviewButton'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17990	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17991	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17992	hasCharacterOrientedLabel: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17993	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17994	model: closePreview
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17995	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17996	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17997
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17998	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17999	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18000	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18002	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18003
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18004	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18005	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18006	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18007
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18008	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	18009	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18010
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18011	newStyle := self selectedStyle value asSymbol.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	18012
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18013	self withWaitCursorDo:[
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	18014	Transcript showCR:'Change style to ' , newStyle , ' ...'.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18015	View defaultStyle:newStyle.
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18016	currentUserPrefs viewStyle:newStyle.
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	18017	currentUserPrefs fontPreferencesChanged. "/ force into class defaults
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18018	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	18019	self reopenToolsAfterChangedViewStyleSetting.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18020
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18021	"Modified: / 24-11-2016 / 18:02:04 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18022	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18023
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18024	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18025	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18026	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18027
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18028	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18029
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18030	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18031	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18032
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18033	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18034
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18035	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18036
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18037	infoLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18038	infoLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18039	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18040	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18041	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18042
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18043	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18044
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18045	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18046	noticeLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18047	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18048	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18049	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18050
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18051	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18052
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18053	previewVisibleHolder isNil ifTrue:[
16924 b1a7600d559b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16923 diff changeset	18054	previewVisibleHolder := false asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18055	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18056	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18057	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18058	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18059
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18060	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18062	selectedStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18063	selectedStyle := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18064	selectedStyle addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18065	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18066	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18067	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18068
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18069	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18070
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18071	showStandardStylesOnly isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18072	showStandardStylesOnly := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18073	showStandardStylesOnly addDependent:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18074	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18075	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18076	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18077
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18078	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18079
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18080	styleList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18081	styleList := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18082	styleList addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18083	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18084	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18085	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18087	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18088
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18089	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18090	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18092	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18093	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18094	nm notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18095	sheet := ViewStyle fromFile:(nm , '.style').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18096	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18097	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18098	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18099	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18100	comment size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18101	comment := comment first
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18102	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18103	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18104
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18105	self previewVisibleHolder value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18106	self builder notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18107	labelView := self componentAt:#PreviewLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18108	imgView := (self componentAt:#Preview).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18109
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18110	previewFile notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18111	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
16923 20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18112	].
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18113	previewImage notNil ifTrue:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18114	labelView label:'Preview'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18115	imgView adjust:#fitBig; image:previewImage.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18116	] ifFalse:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18117	labelView label:'Sorry - no preview available'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18118	imgView image:nil.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18119	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18120	labelView forceResizeHorizontally.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18121	]
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18122	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18123	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18124
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18125	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18126	changedObject == self showStandardStylesOnly ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18127	self updateList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18128	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18129	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18130	changedObject == self selectedStyle ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18131	self changeInfoLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18132	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18133	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18134	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18135	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18136	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18137	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18138	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18139	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18140
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18141	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18142
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18143	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18145	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18146	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18147	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18148	"/ Filename isCaseSensitive ifFalse:[
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18149	"/ listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18150	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18151	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18152	self showStandardStylesOnly value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18153	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18154	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18156	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18157	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18158	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18159
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18160	"Modified: / 06-02-2014 / 14:58:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18161	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18162
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18163	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18164
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18165	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18166	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18167	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18168
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18169	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18170
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18171	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18172	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18173	self changeInfoLabel
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	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18178	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18179
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18180	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18181
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18182	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18183
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18184	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18185	someRsrcFile isNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18186	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18187	someRsrcFile isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18188	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18189	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18190	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18191	someRsrcFile notNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18192	resourceDir := someRsrcFile asFilename directoryName
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18193	] ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18194	resourceDir := Smalltalk getSystemFileName:'resources'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18195	resourceDir isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18196	self warn:'no styles found (missing ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18197	^ self
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18198	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18199	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18200
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18201	[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18202	styleDirectoryContents := resourceDir asFilename directoryContents.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18203	] on:FileStream openErrorSignal do:[:ex\|
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18204	self warn:'no styles found (unaccessible ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18205	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18206	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18207
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18208	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	18209	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18210	self showStandardStylesOnly value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18211	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18212	self selectedStyle value:(View defaultStyle).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18213	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	18214
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18215	"Modified: / 08-02-2017 / 00:29:59 / cg"
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18216	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18217
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18218	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18219	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18220	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18221	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18223	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18224
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18225	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18227	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18228	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18229
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18230	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18231
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18232	emphasisList
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18233	^ self emphasisMappingList collect:#first
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18234	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18235
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18236	emphasisMappingList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18237	"self emphasisMappingList"
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18238
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18239	^ {
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18240	#( #'normal' #normal ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18241	#( #'underline' #underline) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18242	{ 'red underline' . { #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18243	#( #'underwave' #underwave) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18244	{ 'red underwave' . { #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18245	#( #'bold' #bold ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18246	#( 'bold + underline' #(bold underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18247	{ 'bold + red underline' . { #bold . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18248	#( 'bold + underwave' #(bold underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18249	{ 'bold + red underwave' . { #bold . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18250	#( #'italic' #italic ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18251	#( 'italic + underline' #(italic underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18252	{ 'italic + red underline'. { #italic . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18253	#( 'italic + underwave' #(italic underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18254	{ 'italic + red underwave'. { #italic . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18255	#( #'reverse' #reverse )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18256	}
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18257	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18258
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18259	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18260
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18261	^ 'methodSelector:methodArg
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18262	"method comment: some stupid code to show the current settings"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18263
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18264	\|methodVar\| "/ an end-of-line comment...
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18265
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18266	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18267	self fooBarBaz:methodVar. "/ a bad message
13220 1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18268	self halt. "/ a debug message
1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18269	Error raise. "/ an error
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18270	methodVar := Array new:1.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18271	instVar := 1234. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18272	ClassVar := instVar. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18273	methodVar := ClassVar + instVar. "/ not a side effect
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18274	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18275	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18276	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18277	1 to:5 do:[:i \| self at:i + 1].
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18278	[:blockArg \| blockArg + 1].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18279	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18280	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18281	'.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18282
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18283	"Modified: / 14-02-2012 / 10:18:48 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18284	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18285
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18286	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'help specs'!
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18287
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18288	helpSpec
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18289	"This resource specification was automatically generated
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18290	by the UIHelpTool of ST/X."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18291
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18292	"Do not manually edit this!! If it is corrupted,
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18293	the UIHelpTool may not be able to read the specification."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18294
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18295	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18296	UIHelpTool openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18297	"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18298
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18299	<resource: #help>
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18300
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18301	^ super helpSpec addPairsFrom:#(
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18302
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18303	#colorSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18304	'Choose a color for the selected element type'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18305
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18306	#commonStyleSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18307	'Choose a common style, then change by clicking on the "Reset To" button'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18308
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18309	#elementSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18310	'Select the element which you want to define/modify'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18311
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18312	#emphasisSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18313	'Choose a presentation style for the selected element type'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18314
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18315	#immediateSelectorCheck
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18316	'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	18317
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18318	#resetToCommonStyle
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18319	'Press to reset to the selected common style'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18320
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18321	#syntaxColoringEnabled
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18322	'If checked, syntax coloring is enabled'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18323
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18324	#individualStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18325	'Personal style configuration'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18326
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18327	#commonStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18328	'Choose a common style'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18329
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18330	#sampleOutput
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18331	'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	18332
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18333	)
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18334
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18335	"Created: / 14-02-2012 / 10:44:21 / cg"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18336	! !
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18337
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18338	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18339
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18340	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18341	<resource: #image>
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18342	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18343	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18344	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18345	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18346	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18347	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18348	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18349	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18350
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18351	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18352	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18353	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18354	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18355	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18356	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18357	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18358	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18359	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18360	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18361	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18362	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18363	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	18364	A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18365	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	18366	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18367	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18368	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18369	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18370	fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18371	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18372	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18373	]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18374	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18375
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18376	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18377
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18378	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18379	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18380	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18381
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18382	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18383	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18384
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18385	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18386	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18387	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18388	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18389	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18390
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18391	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18392
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18393	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18394	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18395	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18396	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18397	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18398	label: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18399	name: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18400	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18401	bounds: (Rectangle 0 0 695 609)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18402	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18403	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18404	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18405	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18406	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18407	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18408	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	18409	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18410	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18411	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18412	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18413	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18414	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18415	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18416	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18417	label: 'Syntax Coloring'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18418	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18419	activeHelpKey: syntaxColoringEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18420	model: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18421	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18422	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18423	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18424	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18425	label: 'Immediate Selector Check'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18426	name: 'ImmediateSelectorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18427	activeHelpKey: immediateSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18428	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18429	model: fullSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18430	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18431	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18432	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18433	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18434	name: 'SpacingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18435	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18436	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18437	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18438	label: 'Style:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18439	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18440	activeHelpKey: individualStyleSetting
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18441	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18442	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18443	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18444	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18445	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18446	name: 'ElementSelectionBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18447	activeHelpKey: elementSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18448	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18449	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18450	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18451	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18452	label: 'Element:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18453	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18454	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18455	activeHelpKey: elementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18456	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18457	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18458	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18459	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18460	name: 'ComboList3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18461	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	18462	activeHelpKey: elementSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18463	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18464	model: syntaxElementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18465	comboList: syntaxElementList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18466	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18467	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18468	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18469	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18470
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18471	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18472	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18473	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18474	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18475	name: 'ColorBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18476	activeHelpKey: colorSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18477	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18478	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18479	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18480	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18481	label: 'Color:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18482	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18483	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18484	activeHelpKey: colorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18485	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18486	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18487	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18488	(ColorMenuSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18489	name: 'ColorMenu2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18490	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	18491	activeHelpKey: colorSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18492	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18493	model: syntaxColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18494	labelsAreColored: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18495	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18496	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18497
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18498	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18499	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18501	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18502	name: 'EmphasisBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18503	activeHelpKey: emphasisSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18504	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18505	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18506	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18507	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18508	label: 'Emphasis:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18509	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18510	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18511	activeHelpKey: emphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18512	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18513	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18514	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18515	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18516	name: 'ComboList5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18517	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	18518	activeHelpKey: emphasisSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18519	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18520	model: syntaxEmphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18521	comboList: syntaxEmphasisList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18522	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18523	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18524	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18525	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18526
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18527	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18528	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18529	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18530	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18531	name: 'ResetBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18532	activeHelpKey: resetToCommonStyle
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18533	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18534	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18535	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18536	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18537	label: 'Reset To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18538	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18539	layout: (LayoutFrame 0 0 -36 1 150 0 -6 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18540	activeHelpKey: resetToCommonStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18541	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18542	model: resetToColorScheme
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18543	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18544	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18545	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18546	name: 'ComboList4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18547	layout: (LayoutFrame 152 0 -36 1 0 1 -6 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18548	activeHelpKey: commonStyleSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18549	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18550	model: resetListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18551	comboList: resetList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18552	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18553	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18554	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18555	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18556
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18557	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18558	extent: (Point 695 40)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18559	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18560	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18561	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18562	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18563	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18564	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18565	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18566	name: 'SampleLabel3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18567	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18568	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18569	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18570	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18571	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18572	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18573	name: 'TextEditor2'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18574	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18575	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18576	model: coloredText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18577	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18578	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18579	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18580	hasKeyboardFocusInitially: false
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18581	extent: (Point 695 291)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18582	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18583	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18584
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18585	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18586	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18587	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18588
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18589	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18590	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18591	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18592
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18593	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18594
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18595	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18596	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18597	syntaxColoring
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18598	fullSelectorCheck
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18599	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18600	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18601
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18602	basicReadSettings
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18603	\|elementColorList elementList resetListLoc\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18604
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18605	oldUserPreferences notNil ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18606	(UserPreferences reset; current) addAll:oldUserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18607	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18608
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18609	super basicReadSettings.
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	18610
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18611	oldUserPreferences := currentUserPrefs copy.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18612	elementColorList := UserPreferences syntaxColorNames.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18613	elementList := elementColorList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18614	collect:[:each \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18615	(each endsWith:' Color')
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18616	ifTrue:[ each copyButLast:' Color' size ]
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18617	ifFalse:[each]].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18618
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18619	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18620	collect:[:entry \| entry second].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18621	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18622	self resetListSelection value:resetListLoc first.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18623	self syntaxElementList value:elementList.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18624	self syntaxElementSelection value:(elementList at:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18625	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18627	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18628
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18629	oldUserPreferences := currentUserPrefs copy.
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18630	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18631	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18632
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18633	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18634	\|prefs\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18635
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18636	"/ UserPreferences reset.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18637	prefs := currentUserPrefs. "/ UserPreferences current.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18638	changedSettings keysAndValuesDo:[:k :v \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18639	prefs at:k put:v
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18640	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18641	changedSettings := Dictionary new.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18642	"/ self flyByHelpSettingChanged. "/ reinstall
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18643	self recolor.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18644	super discardChangesAndReadSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18645	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18646
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18647	recolor
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18648	\|text dummyClass\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18649
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18650	self syntaxColoring value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18651	Class withoutUpdatingChangesDo:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18652	dummyClass := Object
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18653	subclass:#DummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18654	instanceVariableNames:'instVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18655	classVariableNames:'ClassVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18656	poolDictionaries:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18657	category:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18658	inEnvironment:nil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18659	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18660	text := SyntaxHighlighter
18048 ff4443f3cba5 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18035 diff changeset	18661	formatMethodSource:self class exampleText
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18662	in:dummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18663	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18664	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18665	text := self class exampleText.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18666	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18667	self coloredText value:text
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	"Modified: / 14-02-2012 / 10:13:56 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18670	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18671
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18672	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18673	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18674
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18675	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18676	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18677	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18678	self updateModifiedChannel
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18679
2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18680	"Modified (format): / 16-03-2012 / 10:32:02 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18681	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18682
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18683	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18684
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18685	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18686
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18687	coloredText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18688	coloredText := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18689	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18690	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18691	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18692
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18693	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18694
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18695	fullSelectorCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18696	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18697	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18698	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18699	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18700	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18701
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18702	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18703
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18704	resetList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18705	resetList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18706	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18707	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18708
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18709	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18710	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18711
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18712	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18713
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18714	resetListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18715	resetListSelection := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18716	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18717	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18718	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18719
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18720	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18721
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18722	syntaxColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18723	syntaxColor := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18724	syntaxColor addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18725	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18726	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18727	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18728
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18729	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18730
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18731	syntaxColoring isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18732	syntaxColoring := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18733	syntaxColoring addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18734	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18735	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18736	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18737	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18738
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18739	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18740	syntaxElementList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18741	syntaxElementList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18742	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18743	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18744
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18745	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18748	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18749
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18750	syntaxElementSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18751	syntaxElementSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18752	syntaxElementSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18753	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18754	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18755
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18756	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18757	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18758
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18759	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18760	syntaxEmphasisList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18761	syntaxEmphasisList := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18762	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18763	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18764
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18765	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18766	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18767
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18768	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18769
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18770	syntaxEmphasisSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18771	syntaxEmphasisSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18772	syntaxEmphasisSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18773	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18774	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18775	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18776
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18777	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18778
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18779	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18780	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18781
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18782	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18783	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18784
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18785	syntaxColorChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18786	\|prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18787
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18788	prefKey := self syntaxColorSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18789	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18790	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18791	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18792	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18793	currentUserPrefs at:prefKey put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18794	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18795	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18796	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18797
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18798	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18799	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18800
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	18801	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	18802	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18803	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18804	"/ self recolor.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18805	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18806
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18807	syntaxEmphasisSelectionChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18808	\|em prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18809
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18810	prefKey := self syntaxEmphasisSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18811	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18812	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18813	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18814	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18815	em := self getEmphasis:(self syntaxEmphasisSelection value ? 'normal') string.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18816	currentUserPrefs at:prefKey put:em.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18817
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18818	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18819	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18820	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18821
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18822	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18823	changedObject == self syntaxElementSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18824	self syntaxElementSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18825	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18826	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18827	changedObject == self syntaxColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18828	self syntaxColorChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18829	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18830	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18831	changedObject == self syntaxEmphasisSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18832	self syntaxEmphasisSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18833	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18834	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18835	changedObject == self syntaxColoring ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18836	self recolor.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18837	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18838	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18839
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18840	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18841	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18842
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18843	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18844
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18845	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18846	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18847	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18848
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18849	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18850
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18851	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18852	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18853
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18854	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18855	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18856
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18857	self syntaxEmphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18858	value:(self class emphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18859	collect:[:lbl \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18860	lbl emphasizeAllWith:( self getEmphasis:lbl )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18861	]).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18862
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18863	changedSettings := Dictionary new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18864	resetListDictionary := Dictionary new.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18865	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18866	resetListDictionary at:(entry at:1) put:(entry at:2)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18867	].
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18868
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18869	"Modified: / 08-02-2017 / 00:30:23 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18870	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18871
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18872	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18873
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18874	emphasisDictionary := Dictionary new.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18875	self class emphasisMappingList do:[ :mapping \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18876	\|name emphasis\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18877
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18878	name := mapping first.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18879	emphasis := mapping second.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18880	emphasisDictionary at:name put:emphasis.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18881	emphasisDictionary at:emphasis put:name.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18882	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18883	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18884
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18885	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18886
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18887	oldUserPreferences notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18888	(UserPreferences reset; current)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18889	addAll:oldUserPreferences;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18890	flyByHelpSettingChanged. "/ reinstall
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18891	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18892	super release
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18893
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18894	"Modified: / 14-02-2012 / 11:01:49 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18895	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18896
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18897	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18898
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18899	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18900	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18901
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	18902	oldUserPreferences isNil ifTrue:[^ false].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	18903
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18904	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18905	colorList do:[:syntaxElement \|
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18906	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18907	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18908	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18909	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18910	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18911	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18912	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18913	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18914	syntaxElement
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18915	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18916
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18917	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	18918
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18919	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18920	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18921
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18922	syntaxColorSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18923	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18924
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18925	elementName := key := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18926	(elementName endsWith:' Color') ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18927	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18928	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18929	^ (self syntaxColorSelectorForElement:key)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18930	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18931
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18932	syntaxColorSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18933	"/ old code - error prone
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18934	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) second
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18935	"/ ^ (aSyntaxElementsName replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18936	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18937
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18938	syntaxEmphasisSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18939	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18940
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18941	elementName := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18942	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18943	^ self syntaxEmphasisSelectorForElement:key
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18944	!
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18945
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18946	syntaxEmphasisSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18947	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) third
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18948	"/ ^ (((self syntaxColorSelectorForElement:anEmElement) upToAll: 'Color'), 'Emphasis')
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18949	"/ asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18950	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18951
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18952	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'help specs'!
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18953
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18954	helpSpec
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18955	"This resource specification was automatically generated
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18956	by the UIHelpTool of ST/X."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18957
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18958	"Do not manually edit this!! If it is corrupted,
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18959	the UIHelpTool may not be able to read the specification."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18960
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18961	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18962	UIHelpTool openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18963	"
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18964
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18965	<resource: #help>
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18966
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18967	^ super helpSpec addPairsFrom:#(
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18968
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18969	#compactSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18970	'Arrange source code manager menu items in a compact layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18971
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18972	#inPlaceSearch
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18973	'In-place search to browser lists'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18974
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18975	#inlineSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18976	'Arrange source code manager menu items in a falt inline layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18977
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18978	#oldSCMMenuLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18979	'Arrange source code manager menu items in the old, traditional layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18980
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18981	#searchBarInBrowser
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18982	'Add a search bar to the browser (like in web browsers)'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18983
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18984	#showBookmarksBar
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18985	'Show the bookmarks bar'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18986
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18987	#showGlobalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18988	'Show a toolbar button to navigate the global visited classes history'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18989
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18990	#showLocalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18991	'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	18992
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18993	#showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18994	'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	18995
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18996	#showMethodTemplate
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18997	'Show a method code template when no method is selected'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18998
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18999	#sortAndIndentClassesByInheritance
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19000	'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	19001
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19002	#useEmbeddedTestRunner
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19003	'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	19004
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19005	#webBrowserLikeLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19006	'Use a layout similar to web browsers'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19007
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19008	)
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19009	! !
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19010
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19011	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19012
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19013	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19014	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19015
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19016	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19017
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19018	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19019	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19020
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19021	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19022
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19023	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19024	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19025	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19026
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19027	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19028	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19029
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19030	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19031	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19032	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19033	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19034	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19035
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19036	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19037
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19038	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19039	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19040	name: windowSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19041	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19042	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19043	label: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19044	name: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19045	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19046	min: (Point 10 10)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19047	bounds: (Rectangle 0 0 569 590)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19048	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19049	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19050	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19051	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19052	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19053	name: 'SettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19054	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19055	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19056	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19057	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19058	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19059	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19060	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19061	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19062	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19063	label: 'Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19064	name: 'ToolsSettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19065	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19066	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19067	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19068	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19069	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19070	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19071	name: 'ToolSettingsVPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19072	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19073	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19074	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19075	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19076	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19077	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19078	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19079	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19080	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19081	label: 'Use the Embedded Test Runner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19082	name: 'UseEmbeddedTestRunner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19083	activeHelpKey: useEmbeddedTestRunner
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19084	model: showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19085	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19086	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19087	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19088	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19089	label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19090	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19091	activeHelpKey: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19092	initiallyInvisible: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19093	model: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19094	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19095	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19096	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19097	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19098	label: 'Show Bookmarks Bar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19099	name: 'ShowBookmarksBar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19100	activeHelpKey: showBookmarksBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19101	model: showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19102	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19103	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19104	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19105	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19106	label: 'Sort and Indent Classes by Inheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19107	name: 'SortAndIndentClassesByInheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19108	activeHelpKey: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19109	model: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19110	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19111	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19112	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19113	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19114	label: 'Show Local Navigation History (Separate History per Browser Tab)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19115	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19116	activeHelpKey: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19117	model: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19118	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19119	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19120	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19121	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19122	label: 'Show Global Navigation History (Global History for all Browsers)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19123	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19124	activeHelpKey: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19125	model: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19126	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19127	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19128	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19129	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19130	label: 'Show Search Bar in Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19131	name: 'ShowSearchBarInBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19132	activeHelpKey: searchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19133	model: useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19134	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19135	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19136	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19137	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19138	label: 'Use in-place Search in Browser Lists (experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19139	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19140	activeHelpKey: inPlaceSearch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19141	model: useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19142	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19143	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19144	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19145	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19146	label: 'Show Method Template'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19147	name: 'MethodTemplate'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19148	activeHelpKey: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19149	model: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19150	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19151	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19152	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19153	(CheckBoxSpec
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19154	label: 'Marquee Info'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19155	name: 'CheckBox5'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19156	activeHelpKey: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19157	model: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19158	translateLabel: true
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19159	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19160	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19161	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19162
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19163	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19164	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19165	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19166
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19167	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19168	extent: (Point 569 333)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19169	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19170	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19171	label: 'Sourcecode Management Menu Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19172	name: 'MenuLayoutPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19173	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19174	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19175	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19176	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19177	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19178	(VerticalPanelViewSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19179	name: 'MenuLayoutVPanel'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19180	layout: (LayoutFrame 0 0 5 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19181	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19182	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19183	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19184	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19185	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19186	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19187	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19188	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19189	label: 'Old'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19190	name: 'SCMMenuLayoutOld'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19191	activeHelpKey: oldSCMMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19192	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19193	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19194	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19195	select: 'old'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19196	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19197	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19198	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19199	label: 'Inline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19200	name: 'SCMMenuLayoutInline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19201	activeHelpKey: inlineSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19202	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19203	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19204	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19205	select: 'inline'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19206	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19207	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19208	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19209	label: 'Compact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19210	name: 'SCMMenuLayoutCompact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19211	activeHelpKey: compactSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19212	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19213	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19214	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19215	select: 'compact'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19216	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19217	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19218	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19219
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19220	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19221	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19222	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19223
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19224	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19225	extent: (Point 569 135)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19226	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19227	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19228	label: 'Static Analysis (Lint)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19229	name: 'LintPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19230	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19231	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19232	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19233	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19234	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19235	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19236	name: 'LintPanelContent'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19237	layout: (LayoutFrame 0 0 0 0 0 1 53 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19238	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19239	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19240	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19241	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19242	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19243	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19244	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19245	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19246	name: 'DefaultRulesetBox'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19247	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19248	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19249	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19250	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19251	label: 'Default Rules:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19252	name: 'DefaultRulesetLabel'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19253	layout: (LayoutFrame 0 0 0 0 138 0 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19254	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19255	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19256	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19257	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19258	name: 'DefaultRuleset'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19259	layout: (LayoutFrame 144 0 0 0 -100 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19260	model: smallLintRulesetDefault
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19261	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19262	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19263	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19264	converter: smallLintRulesetDefaultAdaptor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19265	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19266	emptyFieldReplacementText: 'Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19267	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19268	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19269	label: 'Select'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19270	name: 'DefaultRulesetSelectButton'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19271	layout: (LayoutFrame -100 1 0 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19272	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19273	model: doSelectDefaultRuleset
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19274	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19275	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19276
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19277	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19278	extent: (Point 533 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19279	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19280	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19281	name: 'Box1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19282	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19283	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19284	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19285	(LinkButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19286	label: 'Configure Rule Sets...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19287	name: 'Button1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19288	layout: (LayoutFrame -200 1 -20 1 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19289	foregroundColor: (Color 0.0 0.0 100.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19290	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19291	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19292	model: doConfigureRulesets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19293	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19294	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19295
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19296	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19297	extent: (Point 533 25)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19298	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19299	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19300
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19301	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19302	useDynamicPreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19303	usePreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19304	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19305	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19306
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19307	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19308	extent: (Point 569 92)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19309	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19310	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19311
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19312	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19313	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19314	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19315
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19316	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19317	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19318	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19319
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19320	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19321
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	19322	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	19323	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	19324	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	19325
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	19326	"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	19327	!
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	19328
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	19329	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	19330	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	19331
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	19332	"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	19333	!
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	19334
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	19335	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	19336	<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	19337
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	19338	\| 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	19339
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	19340	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	19341	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	19342	dialog accepted ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19343	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	19344	]
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	19345
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19346	"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	19347	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19348
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19349	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19350
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19351	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19352	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19353	"/ showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19354	useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19355	showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19356	"/ useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19357	showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19358	showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19359	webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19360	sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19361	showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19362	showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19363	useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19364	sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19365	confirmRefactorings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19366	smallLintRulesetDefault
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19367	showMarqueeInfo
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19368	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19369
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19370	"Created: / 25-11-2011 / 15:09:28 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19371	"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	19372	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19373
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19374	confirmRefactorings
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19375
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19376	confirmRefactorings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19377	confirmRefactorings := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19378	confirmRefactorings onChangeSend:#updateModifiedChannel to:self
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19379	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19380	^ confirmRefactorings.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19381
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19382	"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	19383	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19384
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19385	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19386	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19387	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19388	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19389	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19390	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19391	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19392
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19393	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19394	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19395
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19396	showBookmarkBar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19397	showBookmarkBar := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19398	showBookmarkBar onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19399
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19400	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19401	^ showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19402
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19403	"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	19404	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19405
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19406	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19407	"return/create the 'showEmbeddedTestRunnerInBrowser' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19408
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19409	showEmbeddedTestRunnerInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19410	showEmbeddedTestRunnerInBrowser := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19411	showEmbeddedTestRunnerInBrowser onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19412	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19413	^ showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19414
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19415	"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	19416	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19417
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19418	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19419
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19420	showGlobalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19421	showGlobalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19422	showGlobalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19423	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19424	^ showGlobalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19425
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19426	"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	19427	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19428
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19429	showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19430
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19431	showLocalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19432	showLocalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19433	showLocalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19434	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19435	^ showLocalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19436
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19437	"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	19438	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19439
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19440	showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19441	showMarqueeInfo isNil ifTrue:[
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19442	showMarqueeInfo := true asValue.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19443	showMarqueeInfo onChangeSend:#updateModifiedChannel to:self
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19444	].
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19445	^ showMarqueeInfo.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19446	!
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19447
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19448	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19449	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19450
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19451	showMethodTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19452	showMethodTemplate := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19453	showMethodTemplate onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19454
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19455	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19456	^ showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19457
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19458	"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	19459	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19460
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	19461	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	19462	<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	19463
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	19464	smallLintRulesetDefault isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19465	smallLintRulesetDefault := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19466	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	19467	].
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	19468	^ 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	19469
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	19470	"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	19471	"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	19472	!
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19473
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19474	smallLintRulesetDefaultAdaptor
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19475	^ PluggableAdaptor new
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19476	getter:[ :model \| model value isNil ifTrue:[nil] ifFalse:[model value name]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19477	setter:[ :model :value \| ]
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19478
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19479	"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	19480	!
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	19481
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19482	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19483
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19484	sortAndIndentClassesByInheritance isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19485	sortAndIndentClassesByInheritance := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19486	sortAndIndentClassesByInheritance onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19487	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19488	^ sortAndIndentClassesByInheritance.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19489
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19490	"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	19491	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19492
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19493	sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19494	sourceCodeManagementMenuLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19495	sourceCodeManagementMenuLayout := #inline "#old" asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19496	sourceCodeManagementMenuLayout onChangeSend:#updateModifiedChannel to:self
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19497	].
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19498	^ sourceCodeManagementMenuLayout.
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19499
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19500	"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	19501	!
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19502
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19503	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19504	"return/create the 'useCodeView2InTools' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19505
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19506	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19507	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19508	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19509
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19510	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19511	^ useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19512
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19513	"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	19514	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19515
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19516	useInPlaceSearchInBrowserLists
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19517	useInPlaceSearchInBrowserLists isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19518	useInPlaceSearchInBrowserLists := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19519	useInPlaceSearchInBrowserLists onChangeSend:#updateModifiedChannel to:self
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19520	].
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19521	^ useInPlaceSearchInBrowserLists.
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19522
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19523	"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	19524	!
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19525
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19526	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19527	"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	19528	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19529
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19530	useSearchBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19531	useSearchBarInBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19532	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19533	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19534	^ useSearchBarInBrowser.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19535	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19536
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19537	webBrowserLikeLayout
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19538	"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	19539	(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	19540
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19541	webBrowserLikeLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19542	webBrowserLikeLayout := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19543	webBrowserLikeLayout onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19544	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19545	^ webBrowserLikeLayout.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19546
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19547	"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	19548	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19549
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19550	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19551
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19552	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19553	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19554	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19555
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19556	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19557
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19558	helpSpec
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19559	"This resource specification was automatically generated
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19560	by the UIHelpTool of ST/X."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19561
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19562	"Do not manually edit this!! If it is corrupted,
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19563	the UIHelpTool may not be able to read the specification."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19564
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19565	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19566	UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19567	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19568
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19569	<resource: #help>
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19570
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19571	^ super helpSpec addPairsFrom:#(
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19572
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19573	#vmInfo
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19574	'Enable/disable information messages from the Virtual Machine (VM)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19575
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19576	#vmErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19577	'Enable/disable error messages from the Virtual Machine (VM)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19578
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19579	#displayErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19580	'Enable/disable error messages from the display (X or Windows screen connection)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19581
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19582	#classInfos
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19583	'Enable/disable messages from the class library'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19584
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19585	#showToolTips
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19586	'Show tooltips (fly-by help)'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19587
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19588	#toolTipAutoHideDelay
14373 61a21c44e7f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14330 diff changeset	19589	'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	19590
14547 9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19591	#onlyShowTooltipsForActiveWindow
9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19592	'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	19593
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19594	#beepEnabled
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19595	'Enable/disable audible beeps altogether'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19596
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19597	#beepInEditor
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19598	'Enable/disable audible beeps from the editor (search found nothing, etc.)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19599
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19600	#beepForInfoDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19601	'Enable/disable audible beeps when an info dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19602
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19603	#beepForWarningDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19604	'Enable/disable audible beeps when a warning dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19605
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19606	#beepForErrorDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19607	'Enable/disable audible beeps when an error dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19608
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19609	#flyByHelpActive
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19610	'Enable/disable tooltips'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19611
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19612	#sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19613	'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	19614	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19615	! !
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19616
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19617	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19618
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19619	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19620	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19621	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19622
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19623	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19624	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19625
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19626	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19627	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19628	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19629	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19630	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19631
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19632	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19633
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19634	^Icon
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19635	constantNamed:'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19636	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19637	@@@@@@@@@@@@@PDAA @@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19638	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@@AB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19639	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19640	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	19641	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	19642	F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19643	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	19644	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	19645	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19646
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19647	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19648
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19649	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19650	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19651	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19653	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19654	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19655
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19656	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	19657	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	19658	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	19659	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19660	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19662	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19663
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19664	^
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19665	#(FullSpec
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19666	name: windowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19667	window:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19668	(WindowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19669	label: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19670	name: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19671	flags: 1
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19672	min: (Point 10 10)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19673	bounds: (Rectangle 0 0 574 602)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19674	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19675	component:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19676	(SpecCollection
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19677	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19678	(VerticalPanelViewSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19679	name: 'VerticalPanel2'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19680	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	19681	horizontalLayout: fitSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19682	verticalLayout: topSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19683	horizontalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19684	verticalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19685	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19686	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19687	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19688	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19689	label: 'Info & Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19690	name: 'FramedBox1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19691	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19692	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19693	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19694	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19695	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19696	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19697	label: 'VM Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19698	name: 'VMInfoMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19699	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19700	activeHelpKey: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19701	model: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19702	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19703	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19704	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19705	label: 'VM Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19706	name: 'VMErrorMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19707	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19708	activeHelpKey: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19709	model: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19710	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19711	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19712	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19713	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19714	name: 'DisplayErrorMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19715	layout: (LayoutFrame 5 0 65 0 -5 1 95 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19716	activeHelpKey: displayErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19717	model: displayErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19718	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19719	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19720	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19721	label: 'Other Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19722	name: 'OtherInfoMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19723	layout: (LayoutFrame 5 0 95 0 -5 1 125 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19724	activeHelpKey: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19725	model: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19726	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19727	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19728	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19729	label: 'Send also to Transcript (in addition to Stderr)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19730	name: 'CheckBox8'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19731	layout: (LayoutFrame 5 0 149 0 -5 1 179 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19732	activeHelpKey: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19733	model: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19734	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19735	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19736	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19737
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19738	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19739	extent: (Point 564 213)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19740	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19741	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19742	label: 'Audible Bell'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19743	name: 'FramedBox3'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19744	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19745	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19746	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19747	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19748	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19749	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19750	label: 'Beep Generally Enabled'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19751	name: 'beepEnabled'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19752	layout: (LayoutFrame 5 0 10 0 0 1 40 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19753	activeHelpKey: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19754	model: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19755	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19756	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19757	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19758	label: 'Beep in Editor'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19759	name: 'CheckBox7'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19760	layout: (LayoutFrame 40 0 35 0 0 1 65 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19761	activeHelpKey: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19762	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19763	model: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19764	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19765	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19766	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19767	label: 'Beep for Info Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19768	name: 'CheckBox3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19769	layout: (LayoutFrame 40 0 60 0 0 1 90 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19770	activeHelpKey: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19771	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19772	model: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19773	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19774	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19775	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19776	label: 'Beep for Warning Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19777	name: 'CheckBox4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19778	layout: (LayoutFrame 40 0 85 0 0 1 115 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19779	activeHelpKey: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19780	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19781	model: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19782	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19783	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19784	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19785	label: 'Beep for Error Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19786	name: 'CheckBox5'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19787	layout: (LayoutFrame 40 0 111 0 0 1 141 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19788	activeHelpKey: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19789	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19790	model: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19791	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19792	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19793	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19794
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19795	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19796	extent: (Point 564 178)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19797	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19798	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19799	label: 'Help'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19800	name: 'FramedBox4'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19801	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19802	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19803	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19804	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19805	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19806	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19807	label: 'Tooltips (FlyBy Help)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19808	name: 'CheckBox6'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19809	layout: (LayoutFrame 5 0 7 0 -5 1 37 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19810	activeHelpKey: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19811	model: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19812	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19813	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19814	(InputFieldSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19815	name: 'EntryField1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19816	layout: (LayoutFrame -90 1 5 0 -34 1 35 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19817	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19818	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19819	model: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19820	type: timeDurationOrNil
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19821	acceptOnReturn: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19822	acceptOnTab: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19823	acceptOnPointerLeave: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19824	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19825	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19826	label: 'Autohide after:'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19827	name: 'Label1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19828	layout: (AlignmentOrigin -94 1 21 0 1 0.5)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19829	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19830	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19831	adjust: right
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19832	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19833	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19834	label: '(s)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19835	name: 'Label2'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19836	layout: (LayoutFrame -31 1 6 0 0 1 36 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19837	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19838	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19839	adjust: left
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19840	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19841	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19842	label: 'Only Show Tooltips for Active Window'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19843	name: 'CheckBox9'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19844	layout: (LayoutFrame 40 0 42 0 0 1 72 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19845	activeHelpKey: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19846	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19847	model: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19848	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19849	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19850	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19851
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19852	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19853	extent: (Point 564 108)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19854	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19855	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19856
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19857	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19858	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19859	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19860
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19861	)
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19862	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19863	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19864
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19865	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19866
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19867	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19868	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	19869
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19870	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19871	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19872	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19873	self displayErrors value:DeviceWorkstation errorPrinting.
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	19874
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19875	"Modified: / 10-11-2010 / 12:08:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19876	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19877
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19878	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19879
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19880	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19881	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19882	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19883	DeviceWorkstation errorPrinting:self displayErrors value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19884
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19885	super basicSaveSettings.
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19886
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19887	"Modified: / 10-11-2010 / 12:08:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19888	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19889
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19890	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19891
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19892	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19893	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19894	beepEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19895	beepInEditor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19896	beepForInfoDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19897	beepForWarningDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19898	beepForErrorDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19899	flyByHelpActive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19900	toolTipAutoHideDelay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19901	sendMessagesAlsoToTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19902	onlyShowTooltipsForActiveWindow
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19903	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19904
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19905	"Created: / 10-11-2010 / 12:07:42 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19906	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19907
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19908	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19909	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19910	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19911	beepEnabled onChangeSend:#updateModifiedChannel to:self
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19912	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19913	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19914	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19915
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19916	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19917	beepForErrorDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19918	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19919	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19920	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19921	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19922	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19923
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19924	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19925	beepForInfoDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19926	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19927	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19928	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19929	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19930	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19931
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19932	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19933	beepForWarningDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19934	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19935	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19936	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19937	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19938	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19939
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19940	beepInEditor
17943 b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	19941	"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	19942	should beep or not."
b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	19943
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19944	beepInEditor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19945	beepInEditor := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19946	beepInEditor onChangeSend:#updateModifiedChannel to:self
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19947	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19948	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19949	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19950
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19951	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19952
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19953	changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19954	changeFileName := ObjectMemory nameForChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19955	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19956	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19957	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19958	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19959
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19960	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19961
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19962	classInfos isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19963	classInfos := Object infoPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19964	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19965	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19966	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19967	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19968
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19969	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19970
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19971	displayErrors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19972	displayErrors := DeviceWorkstation errorPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19973	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19974	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19975	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19976	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19977
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	19978	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19979	flyByHelp isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19980	flyByHelp := currentUserPrefs flyByHelpActive asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19981	flyByHelp onChangeSend:#updateModifiedChannel to:self
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19982	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19983	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19984	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19985
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19986	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19987
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19988	logDoits isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19989	logDoits := Smalltalk logDoits asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19990	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19991	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19992	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19993	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19994
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19995	onlyShowTooltipsForActiveWindow
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19996	onlyShowTooltipsForActiveWindow isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19997	onlyShowTooltipsForActiveWindow := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19998	onlyShowTooltipsForActiveWindow onChangeSend:#updateModifiedChannel to:self
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19999	].
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20000	^ onlyShowTooltipsForActiveWindow.
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20001	!
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20002
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20003	sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20004	sendMessagesAlsoToTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20005	sendMessagesAlsoToTranscript := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20006	sendMessagesAlsoToTranscript onChangeSend:#updateModifiedChannel to:self
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20007	].
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20008	^ sendMessagesAlsoToTranscript.
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20009	!
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20010
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20011	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20012	toolTipAutoHideDelay isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20013	toolTipAutoHideDelay := 10 seconds asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20014	toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20015	].
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20016	^ toolTipAutoHideDelay.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20017
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20018	"Created: / 10-11-2010 / 12:07:10 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20019	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20020
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20021	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20022
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20023	updChanges isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20024	updChanges := Class updatingChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20025	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20026	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20027	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20028	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20029
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20030	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20031
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20032	vmErrors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20033	vmErrors := ObjectMemory debugPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20034	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20035	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20036	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20037	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20038
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20039	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20041	vmInfo isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20042	vmInfo := ObjectMemory infoPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20043	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20044	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20045	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20046	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20047
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20048	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20049
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20050	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20051	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20052	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20053
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20054	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20055
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20056	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20057	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	20058
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20059	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20060	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20061	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20062	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20063	^ false
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	20064
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20065	"Modified: / 10-11-2010 / 12:08:25 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20066	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20067
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20068	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'help specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20069
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20070	helpSpec
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20071	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20072	by the UIHelpTool of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20073
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20074	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20075	the UIHelpTool may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20076
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20077	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20078	UIHelpTool openOnClass:AbstractSettingsApplication::FontSettingsAppl
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20079	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20080
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20081	<resource: #help>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20082
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20083	^ super helpSpec addPairsFrom:#(
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20084
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20085	#terminalOutputIsUTF8
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20086	'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	20087
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20088	#terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20089	'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	20090
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20091	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20092	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20093
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20094	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'image specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20095
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20096	defaultIcon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20097	<resource: #programImage>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20098
16953 9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20099	OperatingSystem isUNIXlike ifTrue:[
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20100	^ ToolbarIconLibrary unixShellTerminal22x22Icon
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20101	].
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20102	^ ToolbarIconLibrary terminal16x16Icon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20103	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20104
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20105	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'interface specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20106
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20107	windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20108	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20109	by the UIPainter of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20110
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20111	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20112	the UIPainter may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20113
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20114	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20115	UIPainter new openOnClass:AbstractSettingsApplication::TerminalViewSettingsAppl andSelector:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20116	AbstractSettingsApplication::TerminalViewSettingsAppl new openInterface:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20117	AbstractSettingsApplication::TerminalViewSettingsAppl open
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20118	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20119
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20120	<resource: #canvas>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20121
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20122	^
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20123	#(FullSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20124	name: windowSpec
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20125	window:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20126	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20127	label: 'Terminalview Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20128	name: 'Terminalview Settings'
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20129	flags: 1
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20130	min: (Point 10 10)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20131	bounds: (Rectangle 0 0 658 543)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20132	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20133	component:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20134	(SpecCollection
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20135	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20136	(VerticalPanelViewSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20137	name: 'VerticalPanel1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20138	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20139	horizontalLayout: fit
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20140	verticalLayout: top
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20141	horizontalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20142	verticalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20143	component:
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20144	(SpecCollection
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20145	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20146	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20147	label: 'Shell / Command Output is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20148	name: 'UserCodeView2'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20149	activeHelpKey: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20150	model: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20151	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20152	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20153	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20154	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20155	label: 'Shell / Command Input is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20156	name: 'CheckBox1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20157	activeHelpKey: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20158	model: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20159	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20160	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20161	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20162	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20163
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20164	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20165	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20166	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20167
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20168	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20169	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20170	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20171
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20172	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20173
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20174	aspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20175	^ #(
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20176	#terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20177	#terminalInputIsUTF8
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20178	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20179	!
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20180
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20181	terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20182	terminalInputIsUTF8 isNil ifTrue:[
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20183	terminalInputIsUTF8 := false asValue.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20184	terminalInputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20185	].
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20186	^ terminalInputIsUTF8.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20187	!
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20188
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20189	terminalOutputIsUTF8
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20190	terminalOutputIsUTF8 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20191	terminalOutputIsUTF8 := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20192	terminalOutputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20193	].
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20194	^ terminalOutputIsUTF8.
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20195	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20196
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20197	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'help'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20198
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20199	helpFilename
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20200	^ 'Launcher/terminalSettings.html'
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20201	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20202
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20203	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20204
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20205	defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20206	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20207	by the ImageEditor of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20208
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20209	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20210	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	20211
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20212	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20213	self defaultIcon inspect
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20214	ImageEditor openOnClass:self andSelector:#defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20215	Icon flushCachedIcons
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20216	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20217
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20218	<resource: #image>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20219
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20220	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20221	constantNamed:'AbstractSettingsApplication::ToolboxSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20222	ifAbsentPut:[(Depth4Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20223	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	20224	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	20225	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	20226	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	20227	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20228
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20229	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20230
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20231	developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20232	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20233	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20234
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20235	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20236	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	20237
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20238	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20239	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20240	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20241	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20242
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20243	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20244
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20245	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20246	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20247	name: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20248	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20249	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20250	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20251	name: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20252	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20253	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20254	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20255	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20256	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20257	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20258	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20259	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20260	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20261	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20262	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20263	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20264	postBuildCallback: developmentToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20265	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20266	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20267
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20268	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20269	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20270
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20271	"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	20272	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20273
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20274	miscToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20275	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20276	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20277
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20278	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20279	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	20280
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20281	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20282	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20283	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20284	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20285
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20286	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20287
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20288	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20289	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20290	name: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20291	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20292	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20293	label: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20294	name: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20295	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20296	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20297	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20298	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20299	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20300	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20301	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20302	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20303	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20304	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20305	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20306	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20307	postBuildCallback: miscToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20308	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20309	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20310
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20311	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20312	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20313
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20314	"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	20315	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20316
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20317	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20318	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20319	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20320
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20321	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20322	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	20323
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20324	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20325	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20326	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20327	AbstractSettingsApplication::ToolboxSettingsAppl open
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20328	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20329
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20330	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20331
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20332	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20333	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20334	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20335	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20336	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20337	label: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20338	name: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20339	bounds: (Rectangle 0 0 551 561)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20340	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20341	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20342	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20343	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20344	(NoteBookViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20345	name: 'NoteBook'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20346	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20347	menu: notebookTabList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20348	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20349	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20350
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20351	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20352	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20353	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20354
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20355	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'list specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20356
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20357	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20358	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20359	by the TabListEditor of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20360
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20361	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20362	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	20363
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20364	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20365	TabListEditor new openOnClass: self andSelector:#notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20366	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20367
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20368	<resource: #tabList>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20369
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20370	^ #(
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20371	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20372	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20373	minorKey: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20374	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20375	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20376	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20377	label: 'Miscellaneous'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20378	minorKey: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20379	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20380	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20381
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20382	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20383
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20384	collect:[:aTab\| TabItem new fromLiteralArrayEncoding:aTab ]
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20385
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20386	"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	20387	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20388
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20389	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'aspects'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20390
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20391	aspects
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20392
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20393	^#(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20394	"Development"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20395	changesBrowserClassName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20396
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20397	"Misc"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20398	fileBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20399	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20400
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20401	"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	20402	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20403
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20404	changesBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20405	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20406
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20407	changesBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20408	changesBrowserClassName := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20409	changesBrowserClassName onChangeSend:#updateModifiedChannel to:self.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20410	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20411	^ changesBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20412
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20413	"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	20414	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20415
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20416	fileBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20417	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20418
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20419	fileBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20420	fileBrowserClassName := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20421	fileBrowserClassName onChangeSend:#updateModifiedChannel to:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20422	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20423	^ fileBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20424
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20425	"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	20426	"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	20427	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20428
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20429	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20430	"Generated by the TabListEditor"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20431
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20432	\|list\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20433
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20434	(list := builder bindingAt:#notebookTabList) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20435	builder aspectAt:#notebookTabList put:(list := self class notebookTabList).
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20436	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20437	^ list
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20438	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20439
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20440	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'hooks'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20441
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20442	developmentToolSettingsInto:panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20443
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20444	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20445	label: 'Changes Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20446	classes:#( #ChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20447	#NewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20448	#Tools::ChangeSetBrowser2 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20449	labels: #( 'ChangesBrowser - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20450	'NewChangesBrowser - experimental, not maintained'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20451	'Tools::ChangeSetBrowser2 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20452	model: self changesBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20453
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20454	"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	20455	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20456
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20457	miscToolSettingsInto:panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20458
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20459	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20460	label: 'File Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20461	classes:#( #FileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20462	#FileBrowserV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20463	#FileBrowserV3 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20464	labels: #( 'FileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20465	'FileBrowserV2 - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20466	'FileBrowserV3 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20467	model: self fileBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20468
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20469	"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	20470	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20471
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20472	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'private'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20473
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20474	addClassToolSettingTo: panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20475
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20476	\| model setting canvas \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20477	canvas := ApplicationSubView new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20478	setting := ClassToolSetting new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20479	setting createBuilder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20480	setting model: model.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20481	setting window: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20482	canvas client: setting.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20483	canvas height: 30.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20484	panel addSubView: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20485	^setting
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20486
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20487	"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	20488	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20489
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20490	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'protocol'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20491
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20492	helpFilename
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20493	"subclasses must return the relative name of a helpFile
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20494	in the doc/online/<language>/help directory.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20495	Or nil, if no help is available."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20496
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20497	^ self shouldImplement
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20498	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20499
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20500	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20501
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20502	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20503	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20504	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20505
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20506	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20507	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	20508
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20509	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20510	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20511	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20512	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting open
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20513	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20514
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20515	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20516
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20517	^
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20518	#(FullSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20519	name: windowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20520	window:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20521	(WindowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20522	label: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20523	name: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20524	min: (Point 10 10)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20525	bounds: (Rectangle 0 0 431 60)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20526	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20527	component:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20528	(SpecCollection
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20529	collection: (
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20530	(LabelSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20531	label: 'Tool...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20532	name: 'Label'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20533	layout: (LayoutFrame 0 0 0 0 250 0 30 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20534	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20535	labelChannel: optionLabelHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20536	adjust: left
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20537	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20538	(PopUpListSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20539	label: 'Please select...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20540	name: 'OptionList'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20541	layout: (LayoutFrame 250 0 3 0 0 1 27 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20542	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20543	model: optionSelectionHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20544	menu: optionLabelList
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20545	useIndex: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20546	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20547	(InputFieldSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20548	name: 'EntryField1'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20549	layout: (LayoutFrame 250 0 33 0 0 1 56 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20550	visibilityChannel: optionCustomValueVisibleHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20551	backgroundChannel: optionCustomValueBackgroundHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20552	model: optionCustomValueHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20553	type: string
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20554	immediateAccept: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20555	acceptOnReturn: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20556	acceptOnTab: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20557	acceptOnPointerLeave: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20558	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20559	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20560
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20561	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20562	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20563	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20564
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20565	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'accessing'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20566
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20567	classes: aCollection
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20568
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20569	optionValueList := aCollection.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20570
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20571	"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	20572	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20573
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20574	label: aString
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	self optionLabelHolder value: aString
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20577
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20578	"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	20579	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20580
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20581	labels: aCollection
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	\| labels \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20584	labels := aCollection asOrderedCollection.
18692 a12a8ca6179e #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18653 diff changeset	20585	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	20586	self optionLabelList value: labels.
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	"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	20589	"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	20590	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20591
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20592	model: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20593
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20594	self optionValueHolder: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20595
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20596	"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	20597	! !
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	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'aspects'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20600
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20601	optionCustomValueBackgroundHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20602	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20603
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20604	optionCustomValueBackgroundHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20605	optionCustomValueBackgroundHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20606	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20607	^ optionCustomValueBackgroundHolder.
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	optionCustomValueBackgroundHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20611	"set the 'optionCustomValueBackgroundHolder' value holder (automatically generated)"
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	optionCustomValueBackgroundHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20614	!
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	optionCustomValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20617	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20618
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20619	optionCustomValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20620	optionCustomValueHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20621	optionCustomValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20622	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20623	^ optionCustomValueHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20624
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20625	"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	20626	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20627
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20628	optionCustomValueVisibleHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20629	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20630
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20631	optionCustomValueVisibleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20632	optionCustomValueVisibleHolder := false asValue.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20633	optionCustomValueVisibleHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20634	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20635	^ optionCustomValueVisibleHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20636
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20637	"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	20638	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20639
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20640	optionLabelHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20641	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20642
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20643	optionLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20644	optionLabelHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20645	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20646	^ optionLabelHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20647	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20648
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20649	optionLabelList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20650	<resource: #uiAspect>
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	optionLabelList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20653	optionLabelList := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20654	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20655	^ optionLabelList.
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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20658	optionLabelList:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20659	"set the 'optionLabelList' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20660
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20661	optionLabelList := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20662	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20663
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20664	optionSelectionHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20665	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20666
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20667	optionSelectionHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20668	optionSelectionHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20669	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20670	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20671	^ optionSelectionHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20672
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20673	"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	20674	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20675
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20676	optionSelectionHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20677	"set the 'optionSelectionHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20678
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20679	\|oldValue newValue\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20680
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20681	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20682	oldValue := optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20683	optionSelectionHolder removeDependent:self.
13849 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	optionSelectionHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20686	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20687	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20688	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20689	newValue := optionSelectionHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20690	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20691	self update:#value with:newValue from:optionSelectionHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20692	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20693	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20694
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20695	optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20696	"return/create the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20697
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20698	optionValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20699	optionValueHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20700	optionValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20701	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20702	^ optionValueHolder
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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20705	optionValueHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20706	"set the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20707
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20708	\|oldValue newValue\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20709
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20710	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20711	oldValue := optionValueHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20712	optionValueHolder removeDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20713	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20714	optionValueHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20715	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20716	optionValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20717	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20718	newValue := optionValueHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20719	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20720	self update:#value with:newValue from:optionValueHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20721	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20722	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20723
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20724	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'change & update'!
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	update:something with:aParameter from:changedObject
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20727	"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	20728
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20729	"stub code automatically generated - please change as required"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20730
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20731	changedObject == optionSelectionHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20732	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20733
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20734	idx := self optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20735	self optionCustomValueVisibleHolder value: (idx == optionLabelList value size).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20736	idx <= optionValueList size ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20737	self optionValueHolder value: (optionValueList at: idx)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20738	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20739	^ self.
13849 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	changedObject == optionCustomValueVisibleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20742	self window notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20743	optionCustomValueVisibleHolder value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20744	self window height: 60
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20745	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20746	self window height: 30
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20747	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20748	]
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20749	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20750
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20751	changedObject == optionValueHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20752	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20753
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20754	self optionSelectionHolder value: ((optionValueList ? #()) indexOf: optionValueHolder value ifAbsent:[optionLabelList value size]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20755	self optionCustomValueHolder value: optionValueHolder value.
13849 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	].
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	super update:something with:aParameter from:changedObject
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	"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	20763	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20764
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20765	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20766
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20767	helpSpec
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20768	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20769	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20770
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20771	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20772	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20773
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20774	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20775	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20776	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20777
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20778	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20779
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20780	^ super helpSpec addPairsFrom:#(
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20781
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20782	#autoRaiseTranscript
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	20783	'Autoraise the Transcript window when messages are added'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20784
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20785	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20786	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20787
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20788	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20789	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20790
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20791	#useHierarchicalInspector
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20792	'Use the new, hierarchical inspector (unfinished, experimental)'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20793
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20794	#showDidYouKnowTips
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20795	'Show the "Did you Know?" tip browser at startup'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20796
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20797	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20798	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20799
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20800	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20801	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20802
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20803	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20804	'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	20805
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20806	#eclipseStyleMenus
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20807	'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	20808	)
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20809
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	20810	"Modified: / 09-08-2012 / 09:34:41 / cg"
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20811	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20812
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20813	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20814
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20815	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	20816	<resource: #image>
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20817	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20818	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20819	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20820	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20821	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20822	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20823	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	20824	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20825
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20826	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20827	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20828	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20829	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20830	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20831	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20832	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20833	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20834	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20835	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20836	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	20837	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	20838	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	20839	@@@@@@H0B@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@@@@@@@@@@B*****************************(b');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20840	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	20841	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20842	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20843	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20844	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20845	fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20846	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20847	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20848	]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20849	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20850
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20851	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20852
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20853	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20854	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20855	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20857	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20858	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20860	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	20861	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	20862	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	20863	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20864	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20866	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20867
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20868	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20869	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20870	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20871	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20872	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20873	label: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20874	name: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20875	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20876	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20877	bounds: (Rectangle 0 0 594 584)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20878	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20879	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20880	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20881	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20882	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20883	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20884	layout: (LayoutFrame 0 0.0 0 0 0 1.0 562 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20885	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20886	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20887	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20888	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20889	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20890	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20891	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20892	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20893	label: 'Use the New System Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20894	name: 'NewSystemBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20895	activeHelpKey: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20896	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20897	model: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20898	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20899	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20900	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20901	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20902	label: 'Use the New File Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20903	name: 'NewFileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20904	activeHelpKey: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20905	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20906	model: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20907	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20908	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20909	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20910	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20911	label: 'Use the New VersionDiff Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20912	name: 'VersionDiffBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20913	model: useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20914	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20915	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20916	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20917	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20918	label: 'Use the New FileTree File Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20919	name: 'UseNewFileDialogCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20920	model: useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20921	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20922	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20923	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20924	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20925	label: 'Use the New Settings Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20926	name: 'UseNewSettinsApplicationCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20927	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20928	model: useNewSettingsApplication
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20929	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20930	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20931	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20932	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20933	label: 'Use the New Process Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20934	name: 'UseNewProcessMonitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20935	model: useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20936	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20937	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20938	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20939	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20940	label: 'Use the New TestRunner2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20941	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20942	model: useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20943	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20944	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20945	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20946	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20947	label: 'Use the New Changes Browser for Changefiles (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20948	name: 'ChangesBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20949	model: useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20950	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20951	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20952	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20953	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20954	label: 'Use the New ChangeSet Browser for Internal ChangeSets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20955	name: 'CheckBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20956	model: useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20957	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20958	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20959	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20960	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20961	label: 'Use Hierarchical Inspector (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20962	name: 'HierarchicalInspector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20963	activeHelpKey: useHierarchicalInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20964	model: useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20965	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20966	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20967	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20968	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20969	label: 'Use the Smalltalk Document Viewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20970	name: 'UseSmalltalkDocumentViewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20971	activeHelpKey: useSmalltalkDocumentView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20972	model: useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20973	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20974	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20975	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20976	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20977	name: 'HorizontalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20978	horizontalLayout: leftFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20979	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20980	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20981	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20982	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20983	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20984	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20985	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20986	label: 'External Diff Tool:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20987	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20988	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20989	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20990	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20991	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20992	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20993	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20994	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20995	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20996	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20997	model: externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20998	type: string
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20999	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21000	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21001	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21002	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21003	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21004	extent: (Point 480 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21005	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21006	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21007
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21008	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21009	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21010	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21011	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21012	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21013	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21014	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21015	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21016	label: 'Show "Tip Of The Day" at Startup'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21017	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21018	activeHelpKey: showDidYouKnowTips
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21019	model: showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21020	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21021	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21022	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21023	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21024	label: 'Show Clock in Launcher'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21025	name: 'Clock'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21026	activeHelpKey: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21027	model: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21028	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21029	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21030	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21031	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21032	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21033	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21034	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21035	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21036	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21037	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21038	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21039	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21040	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21041	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21042	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21043	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21044	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21045	name: 'Box4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21046	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21047	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21048	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21049	label: 'Transcript''s Buffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21050	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21051	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21052	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21053	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21054	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21055	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21056	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21057	(InputFieldSpec
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21058	name: 'Transcript''s Buffer Size'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21059	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21060	model: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21061	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21062	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21063	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21064	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21065	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21066	numChars: 8
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21067	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21068	extent: (Point 78 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21069	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21070	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21071	label: '(Lines)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21072	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21073	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21074	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21075	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21076	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21077	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21078	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21079	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21080
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21081	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21082	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21083	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21084	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21085	label: 'Autoraise Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21086	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21087	activeHelpKey: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21088	model: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21089	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21090	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21091	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21092	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21093	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21094	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21095	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21096	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21097	label: 'Eclipse Style Menus (where implemented)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21098	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21099	activeHelpKey: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21100	model: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21101	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21102	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21103	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21104	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21105
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21106	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21107	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21108	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21109
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21110	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21111	)
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21112
779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21113	"Modified: / 21-09-2018 / 11:19:16 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21114	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21116	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21117
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21118	basicReadSettings
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21119	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21120
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21121	super basicReadSettings.
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21122
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21123	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21124	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21125	self transcriptBufferSize value:transcript lineLimit.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21126	"/ now already in userprefs
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21127	"/ self autoRaiseTranscript value:transcript autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21128	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21129
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21130	"Modified: / 29-08-2013 / 11:40:23 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21131	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21132
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21133	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	21134	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21135
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21136	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21137
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21138	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	21139
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21140	super basicSaveSettings.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21141
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21142	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21143	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21144	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21145
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21146	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21147	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21148	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21149	newSystemBrowserClass installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21150	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21151	newSystemBrowserClass removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21152	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21153	reopenLauncher := true.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21154	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21155
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21156	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21157	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21158	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21159	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21160	FileBrowserV2 installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21161	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21162	FileBrowserV2 removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21163	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21164	reopenLauncher := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21165	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21166	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21167
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21168	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21169	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21170	transcript lineLimit:self transcriptBufferSize value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21171	"/ now already done by UserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21172	"/ transcript autoRaise:self autoRaiseTranscript value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21173	launcher := transcript application.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21174	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21175
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21176	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21177	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21178	currentUserPrefs showClockInLauncher:showClock.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21179	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21180	showClock ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21181	launcher startClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21182	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21183	launcher stopClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21184	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21185	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21186	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21187	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21188
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21189	reopenLauncher ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21190	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21191	launcher reopenLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21192	]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21193	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21194
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21195	"Modified: / 27-07-2012 / 20:51:46 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21196	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21197
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21198	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21199
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21200	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21201	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21202	#eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21203	#useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21204	"/ #useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21205	#useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21206	#useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21207	#useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21208	"/ #useNewSystemBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21209	#useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21210	"/ #useNewFileBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21211	#useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21212	"/ #useNewSettingsApplication -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21213	#useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21214	#useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21215	#showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21216	#showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21217	#externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21218	#autoRaiseTranscript
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21219	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21220
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21221	"Created: / 27-07-2012 / 20:48:18 / cg"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21222	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21223
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21224	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21225	autoRaiseTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21226	autoRaiseTranscript := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21227	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21228	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21229	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21230
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21231	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21232	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21233
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21234	eclipseStyleMenus
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21235	eclipseStyleMenus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21236	eclipseStyleMenus := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21237	eclipseStyleMenus onChangeSend:#updateModifiedChannel to:self
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21238	].
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21239	^ eclipseStyleMenus.
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21240
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21241	"Modified: / 21-09-2006 / 00:39:54 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21242	"Created: / 08-07-2011 / 13:42:13 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21243	!
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21244
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21245	externalDiffCommandTemplate
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21246	externalDiffCommandTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21247	externalDiffCommandTemplate := UserPreferences current externalDiffCommandTemplate asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21248	externalDiffCommandTemplate onChangeSend:#updateModifiedChannel to:self
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21249	].
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21250	^ externalDiffCommandTemplate.
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21251	!
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21252
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21253	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21254	showClockInLauncher isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21255	showClockInLauncher := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21256	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21257	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21258	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21259
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21260	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21261	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21262
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21263	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21264	showTipOfTheDayAtStartup isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21265	showTipOfTheDayAtStartup := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21266	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21267	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21268	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21269
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21270	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21271	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21272
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21273	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21274	transcriptBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21275	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21276	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21277	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21278	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21279	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21280
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21281	useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21282	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21283	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21284	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21285
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21286	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21287	^ useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21288
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21289	"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	21290	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21291
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21292	useNewChangeSetBrowser
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21293	useNewChangeSetBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21294	useNewChangeSetBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21295	useNewChangeSetBrowser onChangeSend:#updateModifiedChannel to:self
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21296	].
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21297	^ useNewChangeSetBrowser.
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21298
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21299	"Modified: / 21-09-2006 / 00:39:37 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21300	"Created: / 27-07-2012 / 20:45:41 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21301	!
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21302
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21303	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21304	useNewChangesBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21305	useNewChangesBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21306	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21307	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21308	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21309
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21310	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21311	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21312
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21313	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21314	useNewFileBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21315	useNewFileBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21316	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21317	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21318	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21319
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21320	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21321	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21322
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21323	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21324	useNewFileDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21325	useNewFileDialog := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21326	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21327	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21328	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21329	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21330
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21331	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21332	useNewInspector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21333	useNewInspector := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21334	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21335	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21336	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21337
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21338	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21339	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21340
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21341	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21342	useNewSettingsApplication isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21343	useNewSettingsApplication := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21344	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21345	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21346	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21347	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21348
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21349	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21350	useNewSystemBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21351	useNewSystemBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21352	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21353	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21354	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21355
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21356	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21357	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21358
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21359	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21360	useNewVersionDiffBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21361	useNewVersionDiffBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21362	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21363	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21364	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21365
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21366	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21367	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21368
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21369	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21370	useProcessMonitorV2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21371	useProcessMonitorV2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21372	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21373	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21374	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21375
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21376	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21377	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21378
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21379	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21380	useSmalltalkDocumentViewer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21381	useSmalltalkDocumentViewer := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21382	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21383	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21384	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21385
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21386	"Modified: / 21-09-2006 / 00:03:13 / cg"
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21387	!
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21388
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21389	useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21390	useTestRunner2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21391	useTestRunner2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21392	useTestRunner2 onChangeSend:#updateModifiedChannel to:self
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21393	].
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21394	^ useTestRunner2.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21395
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21396	"Modified: / 21-09-2006 / 00:39:19 / cg"
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21397	"Created: / 06-07-2011 / 13:52:33 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21398	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21399
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21400	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21401
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21402	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21403	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21404	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21405
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21406	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21407
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21408	hasUnsavedChanges
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21409	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21410
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21411	super hasUnsavedChanges ifTrue:[^ true].
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21412
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21413	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21414	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21415	(self transcriptBufferSize value ~= transcript lineLimit) ifTrue:[^ true].
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21416	"/ now already in UserPreferences
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21417	"/ (self autoRaiseTranscript value ~= transcript autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21418	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21419	^ false.
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21420
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21421	"Modified: / 29-08-2013 / 11:40:55 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21422	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21423
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21424	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21425
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21426	helpSpec
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21427	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21428	by the UIHelpTool of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21429
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21430	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21431	the UIHelpTool may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21432
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21433	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21434	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21435	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21436
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21437	<resource: #help>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21438
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21439	^ super helpSpec addPairsFrom:#(
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21440
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21441	#usersModuleName
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	21442	'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	21443
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21444	#workspaceDirectory
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21445	'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	21446
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21447	)
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21448
f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21449	"Modified: / 11-02-2017 / 15:28:42 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21450	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21451
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21452	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'image specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21453
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21454	defaultIcon
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21455	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21456
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21457	^ self defaultIcon2
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21458
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21459	"Modified: / 28-07-2018 / 09:59:55 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21460	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21461
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21462	defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21463	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21464	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21465
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21466	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21467	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21468
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21469	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21470	self defaultIcon1 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21471	ImageEditor openOnClass:self andSelector:#defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21472	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21473	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21474
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21475	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21476
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21477	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21478	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21479	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21480	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21481	UQES@@@@@@@@@%UUUUT @@@@@@@@@UT#H%TP@@@@@@@@EUH0@2UQ@@@@@@@QUULDPCUUDP@@@@@3UUHDPBUUL0@@@@@@H%TP@UT"@@@@@@@@@%UQEUT @@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21482	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21483	@@@@@@@@@@@@@@@@@@@@@@@@') 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	21484	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21485
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21486	defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21487	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21488	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21489
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21490	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21491	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21492
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21493	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21494	self defaultIcon2 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21495	ImageEditor openOnClass:self andSelector:#defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21496	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21497	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21498
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21499	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21500
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21501	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21502	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21503	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21504	@@]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	21505	@@@@@@@@\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	21506	@@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	21507	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	21508	@@@@@@@@@@@B@ TE@P@@@PTE@ H@@@@@@@@@@@@@@@@@@ TEAPDAAPTE@ @@@@@@@@@@@@@@@@@@@PTEAPTEAPTE@P@@@@@@@@@@@@@@@@@AAPHBAPTEAPHC
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21509	APD@@@@@@@@@@@@@@@@B@ @@@PTE@P@@@0H@@@@@@@@@@@@@@@@@@@@@@@TB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21510	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') 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	21511	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21512
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21513	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'interface specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21514
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21515	windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21516	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21517	by the UIPainter of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21518
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21519	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21520	the UIPainter may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21521
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21522	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21523	UIPainter new openOnClass:AbstractSettingsApplication::WorkspaceSettingsAppl andSelector:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21524	AbstractSettingsApplication::WorkspaceSettingsAppl new openInterface:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21525	AbstractSettingsApplication::WorkspaceSettingsAppl open
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21526	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21527
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21528	<resource: #canvas>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21529
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21530	^
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21531	#(FullSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21532	name: windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21533	window:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21534	(WindowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21535	label: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21536	name: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21537	min: (Point 10 10)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21538	bounds: (Rectangle 0 0 600 320)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21539	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21540	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21541	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21542	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21543	(VerticalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21544	name: 'VerticalPanel2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21545	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	21546	horizontalLayout: fit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21547	verticalLayout: topSpace
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21548	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21549	verticalSpace: 5
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21550	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21551	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21552	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21553	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21554	name: 'HorizontalPanel1'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21555	activeHelpKey: usersModuleName
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21556	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21557	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21558	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21559	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21560	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21561	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21562	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21563	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21564	label: 'Top Level Module ID:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21565	name: 'Label1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21566	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21567	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21568	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21569	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21570	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21571	name: 'EntryField1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21572	model: usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21573	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21574	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21575	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21576	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21577	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21578	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21579
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21580	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21581	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21582	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21583	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21584	name: 'HorizontalPanel2'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21585	activeHelpKey: workspaceDirectory
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21586	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21587	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21588	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21589	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21590	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21591	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21592	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21593	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21594	label: 'Workspace Directory:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21595	name: 'Label2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21596	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21597	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21598	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21599	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21600	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21601	name: 'EntryField2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21602	model: workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21603	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21604	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21605	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21606	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21607	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21608	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21609
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21610	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21611	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21612	)
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21613	(HorizontalPanelViewSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21614	name: 'HorizontalPanel3'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21615	activeHelpKey: workspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21616	horizontalLayout: rightSpace
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21617	verticalLayout: center
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21618	horizontalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21619	verticalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21620	component:
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21621	(SpecCollection
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21622	collection: (
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21623	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21624	label: 'Create Workspace Directory'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21625	name: 'Button1'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21626	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21627	model: createWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21628	enableChannel: workspaceDirectoryDoesNotExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21629	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21630	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21631	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21632	label: 'Browse'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21633	name: 'Button2'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21634	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21635	model: browseWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21636	enableChannel: workspaceDirectoryDoesExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21637	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21638	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21639	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21640
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21641	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21642	extent: (Point 600 35)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21643	)
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21644	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21645
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21646	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21647	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21648	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21649
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21650	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21651	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21652	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21653
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21654	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'actions'!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21655
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21656	browseWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21657	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21658
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21659	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21660	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21661	Dialog warn:'Directory does not exist'.
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21662	] ifTrue:[
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21663	FileBrowser default openOn:fn
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21664	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21665	]
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21666
6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21667	"Modified: / 01-09-2017 / 14:01:36 / cg"
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21668	!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21669
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21670	createWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21671	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21672
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21673	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21674	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21675	fn recursiveMakeDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21676	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21677	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21678	! !
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21679
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21680	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'aspects'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21681
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21682	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21683	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21684	#usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21685	#workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21686	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21687	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21688
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21689	usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21690	usersModuleName isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21691	usersModuleName := '' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21692	usersModuleName onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21693	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21694	^ usersModuleName.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21695	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21696
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21697	workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21698	workspaceDirectory isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21699	workspaceDirectory := '~/.smalltalk/workspace' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21700	workspaceDirectory onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21701	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21702	^ workspaceDirectory.
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21703	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21704
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21705	workspaceDirectoryDoesExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21706	^ BlockValue
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21707	with:[:workspaceDirectory \|
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21708	workspaceDirectory notEmptyOrNil
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21709	and:[workspaceDirectory asFilename exists]
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21710	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21711	argument:self workspaceDirectory
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21712
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21713	"Created: / 11-02-2017 / 15:43:59 / cg"
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21714	"Modified: / 17-05-2019 / 15:33:01 / Stefan Vogel"
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21715	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21716
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21717	workspaceDirectoryDoesNotExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21718	^ BlockValue
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21719	with:[:entry \|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21720	\|fn\|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21721
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21722	((fn := entry) notEmptyOrNil)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21723	and:[ entry asFilename exists not ].
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21724	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21725	argument:(self workspaceDirectory)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21726
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21727	"Created: / 11-02-2017 / 15:42:02 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21728	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21729
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21730	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'help'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21731
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21732	helpFilename
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21733	^ 'Launcher/workspaceSettings.html'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21734	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21735
4226 44e2f83cc526 initial checkin penk parents: diff changeset	21736	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	21737
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21738	version
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21739	^ '$Header$'
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21740	!
7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21741
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	21742	version_CVS
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21743	^ '$Header$'
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21744	! !
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21745

author	Claus Gittinger <cg@exept.de>
	Tue, 16 Jul 2019 15:07:23 +0200
changeset 18925	15a338cfc8f9
parent 18841	980c8159d853
child 18930	d43703fad00c
permissions	-rw-r--r--