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

18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1	"{ Encoding: utf8 }"
a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 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
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	67	allowParagraph enableParagraph'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	68	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	69	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	70	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	71	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	72
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	73	AbstractSettingsApplication subclass:#ChangeFileSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	74	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	75	changeFileName beepForInfoDialog beepForWarningDialog
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	76	beepForErrorDialog flyByHelp beepEnabled beepInEditor'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	77	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	78	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	79	privateIn:AbstractSettingsApplication
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	80	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	81
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	82	AbstractSettingsApplication subclass:#CodeGeneratorSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	83	instanceVariableNames:'generateComments generateCommentsForGetters
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	84	generateCommentsForSetters'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	85	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	86	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	87	privateIn:AbstractSettingsApplication
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	88	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	89
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	90	AbstractSettingsApplication subclass:#CommunicationLoggingSettingsAppl
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	91	instanceVariableNames:'logHTTPRequests logSOAPRequests logExecutedOSCommands
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	92	logNetCommunications'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	93	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	94	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	95	privateIn:AbstractSettingsApplication
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	96	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	97
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	98	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	99	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	100	allowSendMailFromDebugger useNewLayoutInDebugger
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	101	hideSupportCodeInDebugger'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	102	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	103	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	104	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	105	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	106
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	107	AbstractSettingsApplication subclass:#DisplaySettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	108	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	109	clipEncodingListSelection sizeX monitorList ditherList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	110	clipEncodingList ditherListSelection deepIcons monitorSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	111	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	112	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	113	screenDepthVisualLabelHolder maxCopyBufferSize usedWidth
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	114	usedHeight enableVMWareDrawingBugWorkaround'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	115	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	116	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	117	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	118	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120	AbstractSettingsApplication subclass:#EditSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	121	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	122	searchDialogIsModal startTextDragWithControl
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	123	extendedWordSelectMode whitespaceWordSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	124	enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	125	showAcceptCancelBarInBrowser useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	126	autoIndentInCodeView immediateCodeCompletion
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	127	codeCompletionOnControlKey codeCompletionOnTabKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	128	selectionExtensionMode'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	129	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	130	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	131	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	132	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	133
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	134	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	135	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	136	searchDialogIsModal startTextDragWithControl catchClassRedefs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	137	fullHistoryUpdate historyLines keepSourceSelection keepSource
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	138	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	139	userNameInHistoryHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	140	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	141	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	142	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	143	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	144
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	145	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	146	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	147	hasCreatedServerChannel useFcgiHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	148	hasWebServerClassesNotLoadedHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	149	classVariableNames:'CreatedServers'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	150	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	151	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	152	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	153
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	154	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	155	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	156	labelTextHolder changeMapHolder currentKeyHolder functionKeyList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	157	rawKeyList mappings'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	158	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	159	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	160	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	161	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	162
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	163	AbstractSettingsApplication subclass:#LanguageSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	164	instanceVariableNames:'languageHolder languageIndexHolder languageList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	165	languageListHolder listOfLanguages translatedLanguages
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	166	noticeLabelHolder currentFlagAndLanguageChannel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	167	currentLanguageLabel perLanguageResources useSystemLanguageHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	168	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	169	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	170	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	171	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	172
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	173	AbstractSettingsApplication subclass:#MemorySettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	174	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	175	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	176	igcFreeAmount stackLimit supportsJustInTimeCompilation
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	177	methodCodeSizeLimit'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	178	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	179	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	180	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	181	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	182
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	183	AbstractSettingsApplication subclass:#MiscBridgeCommunicationSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	184	instanceVariableNames:'smallTeamServerEnabled selectedSmallTeamHost listOfSmallTeamHosts
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	185	smallTeamHostEntry dotNetBridgeVerbose dotNetBridgeRunsInIDE
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	186	smalltalkBridgeEnabled smalltalkBridgeVerbose'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	187	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	188	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	189	privateIn:AbstractSettingsApplication
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	190	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	191
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	192	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	193	instanceVariableNames:'smtpServerName'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	194	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	195	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	196	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	197	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	198
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	199	AbstractSettingsApplication subclass:#MiscDisplay2SettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	200	instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	201	opaqueTableColumnResize lowerOnRightClickInTitle
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	202	lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	203	nativeFileDialogs cartoonToolTipStyle'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	204	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	205	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	206	privateIn:AbstractSettingsApplication
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	207	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	208
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	209	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	210	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	211	beepEnabled takeFocus activateOnClick
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	212	formatHostNameinWindowLabels hostNameInLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	213	showAccelerators newWindowLabelFormat formatHostNameWindowLabel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	214	selectOnRightClick popUpMenuOnRelease
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	215	showRightButtonMenuOnRelease formatHostNameWindowLabel1
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	216	formatHostNameWindowLabel2 allowMouseWheelZoom
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	217	forceWindowsIntoMonitorBounds button2WithAltKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	218	autoRaiseOnFocusIn menuPanelTakesFocusOnClick
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	219	shouldRememberLastExtentHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	220	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	221	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	222	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	223	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	224
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	225	AbstractSettingsApplication subclass:#MiscSmalltalkCommunicationSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	226	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	227	windowMigrationPassword windowMigrationAuthenticate
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	228	enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	229	listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	230	removeHostEnabled smalltalkBridgeEnabled smalltalkBridgeVerbose
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	231	smallTeamViaXMPPEnabled selectedXMPPSmallTeamUser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	232	xmppSmallTeamUserEntry listOfXMPPSmallTeamUsers
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	233	smallteamXMPPServer smallteamXMPPUser smallteamXMPPPassword'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	234	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	235	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	236	privateIn:AbstractSettingsApplication
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	237	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	238
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	239	AbstractSettingsApplication subclass:#OsiSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	240	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	241	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	242	osiCMISEMessageLogging osiACSEDataLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	243	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	244	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	245	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	246	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	247	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	248
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	249	AbstractSettingsApplication subclass:#PackagePathSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	250	instanceVariableNames:'listOfFoldersInPath selectedFolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	251	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	252	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	253	privateIn:AbstractSettingsApplication
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	254	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	255
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	256	AbstractSettingsApplication subclass:#PrinterSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	257	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	258	landscape pageFormatList pageFormat unitList leftMargin
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	259	possiblePrinters printerType printerTypeSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	260	printCommandList commandList printCommand printFilename
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	261	enableFormat enablelandscape enableMargins enableColorBox
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	262	printerIsDrivenByCommand printerSupportsPrintingToFile
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	263	supportsPageFormatSetting supportsMarginSetting
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	264	supportsColorSetting'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	265	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	266	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	267	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	268	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	269
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	270	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	271	instanceVariableNames:'dynamicPrios preemptive'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	272	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	273	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	274	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	275	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	276
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	277	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	278	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	279	rDoitErrorDebugging rDoitServerPortOrPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	280	rDoitEnabledOnlyViaLocalConnection scriptingEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	281	scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	282	scriptingErrorLogging scriptingLogging scriptingServerPortOrPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	283	rDoitOnlyViaLocalConnection'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	284	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	285	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	286	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	287	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	288
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	289	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	290	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	291	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	292	sqlServerPort sqlStatementLogging'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	293	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	294	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	295	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	296	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	297
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	298	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	299	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	300	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	301	stcCompilationSelection stcCompilationList makeCommand
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	302	stcKeepCIntermediate supportedCCompilerSelection verbose'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	303	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	304	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	305	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	306	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	307
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	308	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	309	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	310	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	311	blockArgumentsOnNewLine spaceAfterReturnToken
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	312	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	313	oldUserPreferences reformatLocked'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	314	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	315	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	316	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	317	!
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	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	320	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	321	setupSourceCodeManager checkClassesWhenCheckingIn
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	322	formattingConfiguration flushSourceCache localSourceFirst
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	323	repositoryHolder manager repository listOfModules
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	324	managerTypePerModule addPerModuleRoot removeEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	325	perModuleRootModule removePerModuleRoot perModuleRoot
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	326	selectedPerModuleRoot rootsPerModule
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	327	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	328	managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	329	managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	330	keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	331	managerTypeToAddHolder managerPerMatchingModule
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	332	selectedManagerPerMatchingModuleHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	333	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	334	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	335	LastStorePassword FillCacheProcess'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	336	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	337	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	338	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	339
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	340	SimpleDialog subclass:#PerModuleManagerSettingDialog
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	341	instanceVariableNames:'packageHolder managerNameHolder availableManagers'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	342	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	343	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	344	privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	345	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	346
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	347	AbstractSettingsApplication subclass:#StyleSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	348	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	349	styleDirectoryContents infoLabelHolder noticeLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	350	previewVisibleHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	351	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	352	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	353	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	354	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	355
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	356	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	357	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	358	fullSelectorCheck syntaxColoring oldUserPreferences
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	359	syntaxFontSelector syntaxFonts syntaxElementList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	360	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	361	emphasisDictionary resetListDictionary changedSettings'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	362	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	363	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	364	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	365	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	366
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	367	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	368	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	369	showMethodTemplate useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	370	showEmbeddedTestRunnerInBrowser showBookmarkBar
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	371	webBrowserLikeLayout sortAndIndentClassesByInheritance
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	372	showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	373	sourceCodeManagementMenuLayout confirmRefactorings
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	374	smallLintRulesetDefault showMarqueeInfo'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	375	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	376	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	377	privateIn:AbstractSettingsApplication
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	378	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	379
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	380	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	381	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	382	changeFileName beepForInfoDialog beepForWarningDialog
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	383	beepForErrorDialog flyByHelp beepEnabled beepInEditor
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	384	toolTipAutoHideDelay sendMessagesAlsoToTranscript
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	385	onlyShowTooltipsForActiveWindow'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	386	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	387	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	388	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	389	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	390
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	391	AbstractSettingsApplication subclass:#TerminalViewSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	392	instanceVariableNames:'terminalOutputIsUTF8 terminalInputIsUTF8'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	393	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	394	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	395	privateIn:AbstractSettingsApplication
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	396	!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	397
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	398	AbstractSettingsApplication subclass:#ToolboxSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	399	instanceVariableNames:'changesBrowserClassName fileBrowserClassName'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	400	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	401	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	402	privateIn:AbstractSettingsApplication
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	403	!
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	ApplicationModel subclass:#ClassToolSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	406	instanceVariableNames:'optionValueHolder optionValueList optionLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	407	optionSelectionHolder optionLabelList optionCustomValueHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	408	optionCustomValueVisibleHolder optionCustomValueBackgroundHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	409	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	410	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	411	privateIn:AbstractSettingsApplication::ToolboxSettingsAppl
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	412	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	413
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	414	AbstractSettingsApplication subclass:#ToolsSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	415	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	416	showClockInLauncher useNewChangesBrowser useNewFileBrowser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	417	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	418	useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	419	showTipOfTheDayAtStartup autoRaiseTranscript eclipseStyleMenus
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	420	useNewChangeSetBrowser useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	421	externalDiffCommandTemplate'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	422	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	423	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	424	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	425	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	426
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	427	AbstractSettingsApplication subclass:#WorkspaceSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	428	instanceVariableNames:'usersModuleName workspaceDirectory'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	429	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	430	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	431	privateIn:AbstractSettingsApplication
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	432	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	433
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	434	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	435
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	436	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	437	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	438	COPYRIGHT (c) 2002 by eXept Software AG
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	439	All Rights Reserved
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	440
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	441	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	442	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	443	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	444	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	445	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	446	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	447	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	448	!
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	documentation
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	451	"
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	452	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	453	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	454	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	455	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	456	(as an example, see SettingsDialog class>>defaultSettingsApplicationList)
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	457
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	458	typical use:
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	459
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	460	\|settingsList settingsApp\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	461
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	462	settingsList := NewLauncher settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	463
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	464	settingsApp := SettingsDialog new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	465	'settingsApp requestor:requestingApplication'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	466	settingsApp installSettingsEntries:settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	467	settingsApp allButOpen.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	468	settingsApp window label:('ST/X Settings').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	469	settingsApp openWindow.
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	470
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	471	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	472	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	473
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	474	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	475
68504047f229 * empty log message * penk parents: 4286 diff changeset	476	classResources
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	477	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	478	^ AbstractLauncherApplication classResources
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	479	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	480	^ super classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	481	!
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	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	484	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	485	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	486
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	487	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	488	^ AbstractLauncherApplication resourcePackName
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	489	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	490	^ super resourcePackName
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	491	!
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	subEntryRawSettingsList
10893 b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	494	"redefine if I have sub-settings entries"
b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	495
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	496	^ #()
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	"Created: / 25-10-2010 / 09:37:21 / cg"
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	499	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	500
5283 9264c15059e7 category change penk parents: 5280 diff changeset	501	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	502
9264c15059e7 category change penk parents: 5280 diff changeset	503	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	504	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	505	!
47e9d7d9bfed Added 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	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	508	"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	509	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	510
47e9d7d9bfed Added 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	"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	512	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	513
47e9d7d9bfed Added 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	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	516	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	517	"
47e9d7d9bfed Added 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	<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	520
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	521	^
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	522	#(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	523	name: windowSpecForDialog
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	524	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	525	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	526	label: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	527	name: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	528	labelChannel: settingsString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	529	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	530	bounds: (Rectangle 0 0 531 488)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	531	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	532	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	533	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	534	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	535	(SubCanvasSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	536	name: 'Content'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	537	layout: (LayoutFrame 7 0 0 0 -7 1 -40 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	538	level: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	539	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	540	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	541	minorKey: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	542	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	543	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	544	(HorizontalPanelViewSpec
16593 6f7fc11a4ab4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16585 diff changeset	545	name: 'ButtonPanel'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	546	layout: (LayoutFrame 5 0 -40 1 -7 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	547	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	548	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	549	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	550	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	551	reverseOrderIfOKAtLeft: true
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	552	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	553	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	554	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	555	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	556	label: 'Cancel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	557	name: 'CancelButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	558	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	559	model: doCancel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	560	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	561	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	562	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	563	label: 'OK'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	564	name: 'OKButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	565	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	566	model: doAccept
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	567	enableChannel: modifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	568	isDefault: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	569	defaultable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	570	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	571	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	572	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	573
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	574	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	575	keepSpaceForOSXResizeHandleH: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	576	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	577	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	578
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	579	)
47e9d7d9bfed Added 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	)
5283 9264c15059e7 category change penk parents: 5280 diff changeset	581	! !
9264c15059e7 category change penk parents: 5280 diff changeset	582
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	583	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	584
15947 4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	585	isAbstract
4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	586	^ (self == AbstractSettingsApplication)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	587	!
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	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	590	"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	591	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	592	the widget names and label aspects are returned
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	593	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	594	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	595
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	596	\|words helpKeys resources withoutSpecialChars
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	597	addSingleWord addEachWord addEachWordXLated\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	598
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	599	"/ translate
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	600	resources := self classResources.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	601
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	602	withoutSpecialChars :=
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	603	[:word \|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	604	\|w\|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	605
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	606	w := word.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	607	[w startsWithAnyOf:'.,-'] whileTrue:[w := w copyButFirst].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	608	[w endsWithAnyOf:'.,-'] whileTrue:[w := w copyButLast].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	609	w
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	610	].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	611
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	612	addSingleWord :=
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	613	[:word :origin\|
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	614	true "(w first isLetter)" ifTrue:[
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	615	words add:(withoutSpecialChars value:word asLowercase).
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	616	].
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
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	619	addEachWord :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	620	[:aString :origin\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	621	aString asCollectionOfWordsDo:[:w \|
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	622	addSingleWord value:w value:origin
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	623	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	624	].
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	625
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	626	addEachWordXLated :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	627	[:aString :origin \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	628	\|xlation\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	629
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	630	aString notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	631	addEachWord value:aString value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	632	(xlation := resources string:aString) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	633	xlation ~= aString ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	634	addEachWord value:xlation value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	635	].
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	words := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	641	helpKeys := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	642
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	643	self windowSpec decodeAsLiteralArray do:[:eachSpec \|
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	644	\|helpKey label name\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	645
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	646	label := eachSpec perform:#label ifNotUnderstood:nil.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	647	label notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	648	addEachWordXLated value:label value:(#label->eachSpec).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	649	].
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	650	name := eachSpec perform:#name ifNotUnderstood:nil.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	651	name notNil ifTrue:[
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	652	addEachWordXLated value:name value:(#name->eachSpec).
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	653	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	654
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	655	(helpKey := eachSpec activeHelpKey) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	656	helpKeys add:helpKey.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	657	"/ words add:helpKey string asLowercase.
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	658	addSingleWord value:helpKey string value:(#helpKey->eachSpec)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	659	].
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	660	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	661	self helpSpec keys do:[:k \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	662	helpKeys add:k.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	663	addSingleWord value:k value:#helpKeyTop
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	664	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	665
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	666	helpKeys do:[:eachKey \|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	667	\|helpText\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	668
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	669	helpText := self helpSpec at:eachKey ifAbsent:nil.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	670	addEachWordXLated value:helpText value:(#helpText->eachKey).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	671	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	672	^ words
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	673
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	AbstractSettingsApplication::BuildSettingsAppl quickSearchStrings
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	676	Expecco::HotkeysSettingsApp quickSearchStrings
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	677	"
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	"Modified: / 25-06-2018 / 14:26:05 / Claus Gittinger"
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	680	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	681
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	682	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	683
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	684	clearDidModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	685	"clear the flag that any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	686	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	687	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	688	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	689	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	690
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	691	didModifySettings := false.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	692	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	693
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	694	didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	695	"true, if any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	696	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	697	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	698	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	699	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	700
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	701	^ didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	702	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	703
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	704	requestor:anotherApplication
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	705	requestor := anotherApplication.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	706
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	707	"Modified: / 12-05-2010 / 17:16:37 / cg"
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	708	!
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	settingsDialog
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	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	713
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	714	settingsDialog:aSettingsDialog
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	715	settingsDialog := aSettingsDialog.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	716
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	717	"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	718	!
47e9d7d9bfed Added 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	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	721	^ settingsString
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	722	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	723
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	724	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	725
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	726	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	727	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	728
47e9d7d9bfed Added 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	"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	730	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	731
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	732	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	733	self readSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	734	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	735
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	736	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	737	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	738	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	739	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	740	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	741
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	742	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	743	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	744
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	745	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	746	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	747
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	748	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	749	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	750
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	751	DebugView newDebugger.
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	752
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	753	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	754	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	755	app := transcript topView application.
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	756	app perform:#reopenLauncher ifNotUnderstood:[].
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	757	].
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	758
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	759	self window topView raise.
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	760	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	761
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	762	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	763	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	764	!
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	saveRequestAsking:askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	767	\|result holder notAgainText\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	768
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	769	self hasUnsavedChanges ifTrue:[
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	770	"/ debugging
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	771	false ifTrue:[
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	772	self whichUnsavedChangesInto:[:aspect \|
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	773	Transcript show:'different: '; showCR:aspect.
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	774	].
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	775	].
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	776
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	777	askForChangeOnRelease ifTrue:[
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	778	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	779
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	780	Dialog
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	781	modifyingBoxWith:[:box \|
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	782	holder := false asValue.
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	783
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	784	"sr: bugfix: sorry but #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	785	does not support #noButton like #confirm: does.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	786	Problem #noButton is always nil.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	787	Seams like copy&paste code from #closeRequest but #confirm replaced by #confirmWithCancel.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	788	I did a quick look, about how to support #noButton also for #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	789	but the effort and stability risks are too high for me for such a gimmick"
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	790	"/ holder onChangeEvaluate:[
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	791	"/ box noButton enabled:(holder value not)
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	792	"/ ].
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	793
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	794	box verticalPanel add:((CheckBox label:notAgainText) model:holder).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	795	]
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	796	do:[
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	797	result := self confirmWithCancel:
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	798	(self resources
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	799	string:'Apply changes made in %1 ?'
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	800	with:(resources string:settingsString) allBold).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	801	].
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	SettingsDialog autoSaveChangedSettingsOnClose:(holder value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	804	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	805	result := true.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	806	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	807
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	808	result isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	809	^ false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	810	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	811	result ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	812	self saveSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	813	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	814	"/ reload current settings to show the right thing when re-entering.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	815	self readSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	816	]
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	817	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	818	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	819
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	820	"Modified: / 20-09-2006 / 23:56:25 / cg"
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	821	"Modified (comment): / 10-04-2018 / 16:55:30 / sr"
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	822	"Modified: / 09-06-2018 / 11:03:26 / Claus Gittinger"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	823	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	824
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	825	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	826	self basicSaveSettings.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	827	didModifySettings := true.
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	828	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	829	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	830
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	831	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	832	self hasUnsavedChanges ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	833	self saveSettings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	834	self modifiedChannel value:false
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	835	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	836	!
c72e35116b13 instable state penk parents: 5040 diff changeset	837
c72e35116b13 instable state penk parents: 5040 diff changeset	838	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	839	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	840	! !
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	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	843
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	844	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	845	"if redefined to return a non-nil list of preference-key aspects,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	846	you can then use the basicSaveSettings/basicReadSettings/hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	847	as inherited from here.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	848	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	849	you MUST redefine all of the 3 above mentioned methods."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	850
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	851	^ nil
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	852	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	853
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	854	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	855
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	856	modifiedChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	857	modifiedChannel := false asValue.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	858	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	859	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	860	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	861
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	862	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	863
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	864	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	865	"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	866	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	867	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	868	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	869	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	870	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	871	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	872	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	873	^ false
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	874	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	875	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	876	"
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	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	879	(self myAspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	880	"/ to debug missing apply-enablements
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	881	"/ Smalltalk enableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	882	"/ Smalltalk disableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	883
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	884	self debuggingCodeFor:#cg is:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	885	Transcript showCR:'settings aspect is different: ',eachAspectSymbol.
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	886	Transcript showCR:' here: ',((self myAspectFor:eachAspectSymbol) value) printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	887	Transcript showCR:' there: ',((anAspectProvider perform:eachAspectSymbol) value) printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	888	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	889	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	890	].
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	891	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	892	^ false
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	893
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	894	"Modified: / 23-03-2011 / 15:45:11 / cg"
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	895	"Modified (format): / 21-12-2018 / 14:57:12 / Claus Gittinger"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	896	!
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	myAspectFor:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	899	"/ used to be (self perform:aspectSymbol),
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	900	"/ 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	901
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	902	^ self
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	903	perform:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	904	ifNotUnderstood:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	905	\|holder\|
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	906
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	907	self createBuilder.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	908	(holder := builder bindingAt:aspectSymbol) isNil ifTrue:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	909	builder aspectAt:aspectSymbol put:(holder := nil asValue).
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	910	holder onChangeSend:#updateModifiedChannel to:self.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	911	].
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	912	holder
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	913	].
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	914
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	915	"Created: / 04-06-2018 / 13:45:09 / Claus Gittinger"
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	916	!
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	917
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	918	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	919	"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	920	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	921	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	922	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	923	self aspect1 value:(someone aspect1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	924	self aspect2 value:(someone aspect2).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	925	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	926	self aspectN value:(someone aspectN).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	927	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	928	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	929	"
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	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	932	(self myAspectFor:eachAspectSymbol)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	933	value:(anAspectProvider perform:eachAspectSymbol)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	934	withoutNotifying:self
9738 7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	935	].
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	"Modified: / 08-02-2011 / 09:11:03 / cg"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	938	"Modified: / 04-06-2018 / 13:45:55 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	939	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	940
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	941	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	942	"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	943	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	944	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	945	as ParserFlags.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	946	Using this, and a list of aspect selectors replaces code like:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	947	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	948	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	949	...
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	950	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	951	^ false
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	952	Prerequisite:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	953	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	954	"
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	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	957	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	958	]
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	"Created: / 31-05-2018 / 12:53:05 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	961	"Modified: / 02-06-2018 / 05:14:30 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	962	!
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	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider into:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	965	"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	966	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	967
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	968	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	969	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	970	ifTrue:[ aBlock value:eachAspectSymbol ]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	971	]
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	"Created: / 31-05-2018 / 12:57:19 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	974	"Modified: / 02-06-2018 / 05:14:33 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	975	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	976
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	977	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	978	"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	979	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	980	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	981	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	982	someone aspect1:(self aspect1 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	983	someone aspect2:(self aspect2 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	984	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	985	someone aspectN:(self aspectN value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	986	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	987	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	988	"
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	aListOfAspects do:[:eachAspectSymbol \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	991	anAspectProvider
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	992	perform:eachAspectSymbol asMutator
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	993	with:(self myAspectFor:eachAspectSymbol) value
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	994	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	995
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	996	"Modified: / 24-08-2010 / 16:52:42 / sr"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	997	"Modified: / 04-06-2018 / 13:45:48 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	998	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	999
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	1000	!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	1001
47e9d7d9bfed Added 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	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	1003	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	1004
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1005	"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	1006	! !
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1007
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1008	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1009
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1010	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1011	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1012
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1013	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1014	resources := self class classResources.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1015	currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1016	settingsString := (UISpecification from:(self class windowSpec)) window label.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	1017	didModifySettings := false.
15483 7142c70e4a6b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15388 diff changeset	1018
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	1019	"/ self readSettings.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1020
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1021	"Modified: / 08-02-2017 / 00:29:53 / cg"
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1022	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1023
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1024	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1025	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1026	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1027
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1028	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1029
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	1030	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1031	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1032	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1033
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1034	!AbstractSettingsApplication methodsFor:'opening'!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1035
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1036	open
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1037	"open a standard interface.
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1038	Sorry, but for visualworks compatibility, the builder is returned"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1039
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1040	^ self openInterfaceModal: #windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1041
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1042	"Created: / 14-10-2014 / 09:15:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1043	! !
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1044
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1045	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	1046
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	1047	askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1048	"shall we ask if changed settings should be saved, when closing?"
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1049
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1050	^ SettingsDialog autoSaveChangedSettingsOnClose not
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	1051	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	1052
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1053	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1054	"utility to read aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1055	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1056	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1057
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1058	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1059
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1060	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1061	self readAspects: aspects from:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1062	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1063	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1064	^ self subclassResponsibility:'either basicReadSettings or aspects must be redefined'
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1065	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1066
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1067	basicSaveSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1068	"utility to save aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1069	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1070	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1071
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1072	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1073
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1074	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1075	self writeAspects:aspects to:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1076	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1077	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1078	^ self subclassResponsibility
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1079	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1080
17792 c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1081	editorHelpRelativeWikiURL
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1082	"the relative URL of the dialog-description in the Wiki"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1083
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1084	^ nil
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1085
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1086	"Created: / 25-11-2017 / 23:43:05 / cg"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1087	!
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1088
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1089	hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1090	"utility to check for changed aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1091	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1092	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1093
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1094	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1095
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1096	(aspects := self aspects) notNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1097	^ (self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1098	hasChangedAspectIn:(self aspects)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1099	asComparedTo:currentUserPrefs)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1100	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1101	^ self subclassResponsibility
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1102	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1103
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1104	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1105	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1106
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1107	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1108	filename isNil ifTrue:[
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1109	self warn:('Sorry - no Help available here.').
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1110	^ self.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1111	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1112	self withWaitCursorDo:[
18075 0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1113	Warning handle:[:ex \|
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1114	Dialog warn:ex description
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1115	] do:[
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1116	HTMLDocumentView openFullOnHelpFile:filename
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1117	].
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1118	].
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1119
a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1120	"Modified: / 09-08-2018 / 15:29:59 / Claus Gittinger"
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1121	!
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	helpFilename
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1124	"subclasses must return either the relative path of a helpFile
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1125	in the doc/online/<language>/help directory,
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1126	or an absolute path (typically in its packageDirectory).
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1127	If an absolute filename is returned, the %(lang) sequence is replaced
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1128	by the current user's language.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1129	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1130
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1131	Smalltalk isStandAloneApp ifFalse:[
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1132	self subclassResponsibility.
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1133	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1134	^ nil.
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1135	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1136
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1137	whichUnsavedChangesInto:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1138	"utility to return a list of changed aspects through aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1139	(for info only, in a confirmer)"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1140
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1141	\|aspects\|
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1142
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1143	(aspects := self aspects) notNil ifTrue:[
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1144	self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1145	whichChangedAspectIn:(self aspects)
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1146	asComparedTo:currentUserPrefs
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1147	into:aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1148	^ self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1149	].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1150	^ self subclassResponsibility
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1151
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1152	"Created: / 31-05-2018 / 12:56:53 / Claus Gittinger"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1153	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1154
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1155	widgetsWithChangedSettingsDo:aBlock
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1156	"/ to be redefined in subclasses...
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1157
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1158	\|mySpec\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1159
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1160	self hasValuesDifferentFromDefault ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1161	mySpec := self class windowSpec decodeAsLiteralArray.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1162	(self aspects ? #()) do:[:aspect \|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1163	\|subSpec widget\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1164
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1165	(UserPreferences default perform:aspect) ~= (currentUserPrefs perform:aspect) ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1166	subSpec := mySpec findSpecForWhich:[:spec \| spec model = aspect].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1167	widget := self window
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1168	allSubViewsDetect:[:w \| w name = subSpec name]
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1169	ifNone:nil.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1170	aBlock value:widget.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1171	].
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	].
4226 44e2f83cc526 initial checkin penk parents: diff changeset	1174	! !
44e2f83cc526 initial checkin penk parents: diff changeset	1175
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1176	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1177
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1178	hasValuesDifferentFromDefault
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1179	\|savedCurrent\|
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1180
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1181	self hasUnsavedChanges ifTrue:[
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1182	^ true
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1183	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1184
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1185	savedCurrent := currentUserPrefs.
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1186	currentUserPrefs := UserPreferences default.
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1187	^ [self hasUnsavedChanges] ensure:[currentUserPrefs := savedCurrent].
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1188
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1189	"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	1190	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1191
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1192	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1193	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1194
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1195	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1196	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1197
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1198	itemPathName
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	1199	settingsDialog isNil ifTrue:[^ ''].
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	1200	^ settingsDialog getNameOfApplication:self.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1201	!
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	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	1204	"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	1205	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	1206	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1207
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1208	^ self class quickSearchStrings
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1209	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1210
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1211	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'documentation'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1212
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1213	documentation
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1214	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1215	this little app provides an alternative view on all settings keys.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1216	This offers a name-list of settings values, and thus allows for
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1217	settings to be changed for which no 'real' UI has been programmed.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1218	(i.e. a fallback for missing things)
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1219	"
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	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'image specs'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1223
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1224	defaultIcon
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1225	<resource: #programImage>
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1226
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1227	^ super defaultIcon
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1228	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1229
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1230	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'interface specs'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1231
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1232	windowSpec
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1233	"This resource specification was automatically generated
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1234	by the UIPainter of ST/X."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1235
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1236	"Do not manually edit this!! If it is corrupted,
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1237	the UIPainter may not be able to read the specification."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1238
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1239	"
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1240	UIPainter new openOnClass:AbstractSettingsApplication::AllSettingsAppl andSelector:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1241	AbstractSettingsApplication::AllSettingsAppl new openInterface:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1242	AbstractSettingsApplication::AllSettingsAppl open
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1243	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1244
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1245	<resource: #canvas>
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1246
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1247	^
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1248	#(FullSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1249	name: windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1250	window:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1251	(WindowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1252	label: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1253	name: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1254	min: (Point 10 10)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1255	bounds: (Rectangle 0 0 659 242)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1256	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1257	component:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1258	(SpecCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1259	collection: (
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1260	(DataSetSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1261	name: 'Table1'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1262	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1263	model: selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1264	hasHorizontalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1265	hasVerticalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1266	dataList: settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1267	columns:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1268	(OrderedCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1269
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1270	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1271	label: 'Name'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1272	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1273	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1274	model: key
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1275	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1276	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1277	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1278	label: 'Value'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1279	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1280	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1281	model: value
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1282	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1283	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1284	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1285	)
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1286	)
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	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1290	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1291
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1292	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'actions'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1293
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1294	basicReadSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1295	super basicReadSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1296
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1297	usedCompilerForBuild value isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1298	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1299	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1300	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1301
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1302	"Modified: / 26-07-2012 / 23:16:52 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1303	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1304
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1305	basicSaveSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1306	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1307
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1308	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1309	buildDir notEmptyOrNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1310	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1311	buildDir isDirectory ifFalse:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1312	(Dialog confirm:(resources
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1313	stringWithCRs:'Build directory %1 does not exist.\\Create?'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1314	with:buildDir pathName allBold))
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1315	ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1316	buildDir makeDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1317	]
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1318	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1319	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1320
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1321	super basicSaveSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1322
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1323	"Modified: / 22-01-2012 / 10:50:09 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1324	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1325
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1326	cleanupBuildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1327	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1328
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1329	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1330	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1331	^ self.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1332	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1333	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1334	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1335	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1336	buildDir makeDirectory.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1337	].
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	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'aspects'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1341
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1342	aspects
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1343	^ #(
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1344	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1345	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1346	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1347	)
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	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1351	buildDirectory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1352	buildDirectory := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1353	buildDirectory onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1354	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1355	^ buildDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1356	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1357
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1358	fetchSettingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1359	\|list\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1360
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1361	list := List new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1362	UserPreferences selectorsAndMethodsDo:[:sel :mthd\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1363	\|setter getter getterMethod\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1364
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1365	sel numArgs == 1 ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1366	(sel endsWith:$:) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1367	setter := sel.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1368	getter := sel copyButLast asSymbolIfInterned.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1369	getter notNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1370	(UserPreferences implements:getter) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1371	getterMethod := UserPreferences compiledMethodAt:getter.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1372	getterMethod isObsolete ifFalse:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1373	list add:(sel -> (UserPreferences current perform:getter)).
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1374	].
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	list sortBySelector:#key.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1381	^ list
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1382	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1383
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1384	hasSourceCodeManager
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1385	^ SourceCodeManager notNil
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1386	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1387
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1388	listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1389	^ Tools::ProjectBuilder listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1390
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1391	"Created: / 21-01-2012 / 14:05:43 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1392	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1393
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1394	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1395	localBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1396	localBuild := UserPreferences current localBuild asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1397	localBuild onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1398	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1399	^ localBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1400	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1401
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1402	selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1403	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1404
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1405	selectedSettingHolder isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1406	selectedSettingHolder := ValueHolder new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1407	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1408	^ selectedSettingHolder.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1409	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1410
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1411	settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1412	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1413
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1414	settingsList isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1415	settingsList := self fetchSettingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1416
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1417	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1418	^ settingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1419	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1420
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1421	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1422	usedCompilerForBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1423	usedCompilerForBuild := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1424	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1425	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1426	^ usedCompilerForBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1427
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1428	"Created: / 22-01-2012 / 10:59:30 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1429	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1430
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1431	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'help'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1432
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1433	helpFilename
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1434	^ 'Launcher/buildSetup.html'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1435	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1436
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1437	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'initialization'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1438
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1439	postBuildDirectoryField:aField
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1440	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1441	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1442	with:(Filename currentDirectory construct:'stx_build') pathName)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1443	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1444
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1445	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'queries'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1446
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1447	hasUnsavedChanges
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1448	(super hasUnsavedChanges) ifTrue:[^ true].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1449	^ false
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1450
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1451	"Modified: / 22-01-2012 / 10:50:15 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1452	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1453
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1454	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1455
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1456	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1457	"
17425 8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1458	I manage packages which are to be loaded automatically
8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1459	whenever st/x is started
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1460	"
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
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1463	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'help specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1464
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1465	helpSpec
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1466	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1467	by the UIHelpTool of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1468
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1469	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1470	the UIHelpTool may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1471
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1472	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1473	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1474	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1475
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1476	<resource: #help>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1477
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1478	^ super helpSpec addPairsFrom:#(
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1479	#autoloadedPackages
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1480	'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	1481
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	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'image specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1486
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1487	defaultIcon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1488	<resource: #programImage>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1489
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1490	^ ToolbarIconLibrary packageOpen24x24Icon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1491	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1492
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1493	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'interface specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1494
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1495	windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1496	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1497	by the UIPainter of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1498
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1499	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1500	the UIPainter may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1501
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1502	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1503	UIPainter new openOnClass:AbstractSettingsApplication::AutoloadedPackagesSettingsAppl andSelector:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1504	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl new openInterface:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1505	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl open
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1506	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1507
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1508	<resource: #canvas>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1509
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1510	^
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1511	#(FullSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1512	name: windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1513	window:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1514	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1515	label: 'Autoloaded Packages Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1516	name: 'Autoloaded Packages Settings'
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1517	min: (Point 10 10)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1518	bounds: (Rectangle 0 0 705 722)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1519	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1520	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1521	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1522	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1523	(FramedBoxSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1524	label: 'Packages Automatically Loaded at Startup'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1525	name: 'FramedBox1'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1526	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1527	labelPosition: topLeft
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1528	translateLabel: true
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1529	activeHelpKey: autoloadedPackages
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1530	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1531	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1532	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1533	(SubCanvasSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1534	name: 'SubCanvas1'
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1535	layout: (LayoutFrame 0 0 8 0 0 1 0 1)
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1536	hasHorizontalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1537	hasVerticalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1538	majorKey: MultipleItemSelectionWidget
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1539	createNewApplication: true
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1540	createNewBuilder: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1541	postBuildCallback: postCreatePackageChooserWidget:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1542	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1543	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1544
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1545	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1546	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1547	)
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	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'actions'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1554
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1555	basicReadSettings
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1556	packageChooser notNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1557	packageChooser listOfSelectedItems value:(UserPreferences current autoloadedPackages).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1558	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1559	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1560
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1561	basicSaveSettings
16943 3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1562	UserPreferences current
3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1563	autoloadedPackages:(packageChooser listOfSelectedItems value asArray collect:[:each \| each asString string]).
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1564	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1565
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1566	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'aspects'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1567
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1568	aspects
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1569	^ #(
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1570	autoloadedPackages
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1571	)
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	possibleItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1575	^ 'Available Packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1576	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1577
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1578	readPackageList
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1579	"self basicNew readPackageList"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1580
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1581	\|packageDirPath list setOfPackages setOfAlreadySelectedPckages\|
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1582
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1583	packageDirPath := Smalltalk getSystemFileName:'packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1584	packageDirPath isNil ifTrue:[
16257 7a7ff15e751b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16219 diff changeset	1585	^ #()
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1586	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1587
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1588	list := OrderedCollection new.
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1589	setOfPackages := Set new.
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1590	setOfAlreadySelectedPckages := UserPreferences current autoloadedPackages asSet.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1591
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1592	packageDirPath asFilename directoryContentsAsFilenames sort do:[:fn \|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1593	\|item base nm path parentPath parent isLibrary isApplication isAlreadyLoaded
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1594	defClass target packageID\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1595
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1596	((fn suffix = 'mcz')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1597	or:[ fn isDirectory
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1598	or:[ (fn baseName startsWith:'.')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1599	or:[ (fn baseName = 'README') ]]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1600	]) ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1601	base := fn withoutSuffix baseName.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1602	(base startsWith:'lib') ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1603	nm := (base copyFrom:4).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1604	fn suffix notEmptyOrNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1605	isLibrary := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1606	isApplication := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1607	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1608	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1609	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1610	]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1611	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1612	nm := base.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1613	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1614	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1615	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1616
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1617	path := nm asCollectionOfSubstringsSeparatedBy:$_.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1618	packageID := (path size > 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1619	ifTrue:[ path first , ':' , ((path copyFrom:2) asStringWith:$/) ]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1620	ifFalse:[ path first ].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1621
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1622	(setOfPackages includes:packageID) ifFalse:[
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1623	(setOfAlreadySelectedPckages includes:packageID) ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1624	setOfPackages add:packageID.
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1625	isAlreadyLoaded :=
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1626	(defClass := ProjectDefinition definitionClassForPackage:packageID) notNil
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1627	and:[ defClass isLoaded
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1628	and:[ defClass isFullyLoaded ]].
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1629
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1630	isAlreadyLoaded ifTrue:[
16411 dbd6771f5129 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16389 diff changeset	1631	list add:(packageID,(' (currently loaded)' withColor:Color grey))
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1632	] ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1633	list add:packageID
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1634	]
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1635	].
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1636	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1637	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1638	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1639	list sort.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1640	^ list
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1641	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1642
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1643	selectedItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1644	^ 'Packages Loaded at Startup'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1645	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1646
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1647	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'help'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1648
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1649	helpFilename
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1650	^ 'Launcher/autoloadedPackagesSettings.html'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1651	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1652
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1653	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'initialization'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1654
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1655	postCreatePackageChooserWidget:aPackageChooser
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1656	\|availPackages selectedPackages setOfSelectedPackages\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1657
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1658	availPackages := self readPackageList.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1659	selectedPackages := UserPreferences current autoloadedPackages.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1660	setOfSelectedPackages := selectedPackages asSet.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1661
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1662	availPackages := availPackages reject:[:el \| setOfSelectedPackages includes:el].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1663
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1664	packageChooser := aPackageChooser application.
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1665	packageChooser addAllButtonVisibleHolder value:false.
3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1666	packageChooser removeAllButtonVisibleHolder value:false.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1667	packageChooser listOfPossibleItems value:availPackages asOrderedCollection.
58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1668	packageChooser listOfSelectedItems value:selectedPackages asOrderedCollection.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1669	packageChooser possibleItemsLabelHolder value:(resources string:self possibleItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1670	packageChooser selectedItemsLabelHolder value:(resources string:self selectedItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1671
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1672	packageChooser listOfSelectedItems onChangeSend:#updateModifiedChannel to:self.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1673	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1674
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1675	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'queries'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1676
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1677	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1678	packageChooser notNil ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1679	packageChooser listOfSelectedItems value asArray = UserPreferences current autoloadedPackages asArray ifFalse:[^true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1680	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1681	^ false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1682	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1683
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1684	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1685
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1686	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1687	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1688	I manage parameters for package building (for deployment)
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1689	"
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
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1692	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1693
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1694	helpSpec
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1695	"This resource specification was automatically generated
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1696	by the UIHelpTool of ST/X."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1697
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1698	"Do not manually edit this!! If it is corrupted,
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1699	the UIHelpTool may not be able to read the specification."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1700
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	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1703	"
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	<resource: #help>
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1706
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1707	^ super helpSpec addPairsFrom:#(
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1708
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1709	#buildDirectory
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1710	'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	1711
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1712	#localBuild
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1713	'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	1714
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	"Modified: / 28-02-2019 / 12:52:31 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1719	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1720
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1721	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1722
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1723	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1724	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1725
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	1726	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1727
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1728	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1729	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1730
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1731	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1732
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1733	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1734	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1735	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1736
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1737	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1738	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1739
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1740	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1741	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1742	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1743	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1744	"
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	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1747
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1748	^
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1749	#(FullSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1750	name: windowSpec
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1751	uuid: '71c633fe-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1752	window:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1753	(WindowSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1754	label: 'Build Settings'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1755	name: 'Build Settings'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1756	uuid: '71c63796-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1757	min: (Point 10 10)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1758	bounds: (Rectangle 0 0 659 242)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1759	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1760	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1761	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1762	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1763	(VerticalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1764	name: 'VerticalPanel3'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1765	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1766	uuid: '71c63ad4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1767	horizontalLayout: fit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1768	verticalLayout: top
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1769	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1770	verticalSpace: 4
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1771	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1772	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1773	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1774	(FramedBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1775	label: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1776	name: 'FramedBox1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1777	uuid: '71c63dae-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1778	labelPosition: topLeft
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1779	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1780	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1781	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1782	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1783	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1784	name: 'LocalBuild'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1785	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	1786	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1787	uuid: '71c63f7a-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1788	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1789	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1790	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1791	(CheckBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1792	label: 'Local Build (Do not use Repository)'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1793	name: 'CheckBox4'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1794	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1795	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1796	uuid: '71c640ce-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1797	enableChannel: hasSourceCodeManager
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1798	model: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1799	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1800	)
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	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1806	name: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1807	layout: (LayoutFrame 0 0 40 0 0 1 70 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1808	uuid: '71c64326-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1809	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1810	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1811	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1812	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1813	label: 'Build Directory:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1814	name: 'BuildDirDirLabel'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1815	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	1816	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1817	uuid: '71c64452-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1818	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1819	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1820	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1821	(FilenameInputFieldSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1822	name: 'FilenameEntryField1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1823	layout: (LayoutFrame 202 0 0 0 0 1 22 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1824	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1825	uuid: '71c64664-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1826	enableChannel: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1827	model: buildDirectory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1828	acceptOnReturn: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1829	acceptOnTab: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1830	acceptOnLostFocus: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1831	acceptOnPointerLeave: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1832	postBuildCallback: postBuildDirectoryField:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1833	viewClassName: FilenameWidgetWithHistory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1834	)
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	(HorizontalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1840	name: 'ActionsHorizontalPanel'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1841	layout: (LayoutFrame 62 0.25 71 0 0 1 100 0)
b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1842	uuid: '71c649ca-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1843	horizontalLayout: fitSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1844	verticalLayout: center
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1845	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1846	verticalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1847	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1848	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1849	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1850	(ActionButtonSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1851	label: 'Cleanup Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1852	name: 'CleanupBuildDirectoryButton'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1853	uuid: '71c64bb4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1854	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1855	tabable: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1856	model: cleanupBuildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1857	extent: (Point 396 26)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1858	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1859	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1860
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	extent: (Point 659 136)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1867	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1868	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1869	name: 'Box1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1870	uuid: '71c64e70-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1871	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1872	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1873	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1874	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1875	label: 'Compiler for Build:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1876	name: 'Label1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1877	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1878	uuid: '71c64f92-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1879	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1880	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1881	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1882	(ComboListSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1883	name: 'ComboList1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1884	layout: (LayoutFrame 150 0 0 0 300 0 20 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1885	uuid: '71c6510e-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1886	model: usedCompilerForBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1887	comboList: listOfPossibleCompilers
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1888	useIndex: false
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1889	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1890	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1891
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1892	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1893	extent: (Point 659 25)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1894	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1895	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1896
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	)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1903	! !
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	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1906
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1907	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1908	super basicReadSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1909
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1910	usedCompilerForBuild value isNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1911	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1912	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
11682 47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1913	].
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	"Modified: / 26-07-2012 / 23:16:52 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1916	!
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	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1919	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1920
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1921	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1922	buildDir notEmptyOrNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1923	buildDir := buildDir asFilename.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1924	buildDir isDirectory ifFalse:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1925	(Dialog confirm:(resources
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1926	stringWithCRs:'Build directory %1 does not exist.\\Create?'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1927	with:buildDir pathName allBold))
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1928	ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1929	buildDir makeDirectory.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1930	]
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	super basicSaveSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1935
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1936	"Modified: / 22-01-2012 / 10:50:09 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1937	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1938
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1939	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1940	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1941
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1942	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1943	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1944	^ self.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1945	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1946	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1947	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1948	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1949	buildDir makeDirectory.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1950	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1951	! !
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	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1954
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1955	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1956	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1957	buildDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1958	localBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1959	usedCompilerForBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1960	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1961	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1962
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1963	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1964	buildDirectory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1965	buildDirectory := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1966	buildDirectory onChangeSend:#updateModifiedChannel to:self
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1967	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1968	^ buildDirectory.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1969	!
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	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1972	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1973	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1974
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1975	listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1976	^ Tools::ProjectBuilder listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1977
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1978	"Created: / 21-01-2012 / 14:05:43 / cg"
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1979	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1980
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1981	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1982	localBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1983	localBuild := UserPreferences current localBuild asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1984	localBuild onChangeSend:#updateModifiedChannel to:self
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1985	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1986	^ localBuild.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1987	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1988
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1989	usedCompilerForBuild
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1990	usedCompilerForBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1991	usedCompilerForBuild := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1992	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1993	].
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1994	^ usedCompilerForBuild.
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1995
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1996	"Created: / 22-01-2012 / 10:59:30 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1997	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1998
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1999	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2000
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2001	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2002	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2003	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	2004
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2005	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2006
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2007	postBuildDirectoryField:aField
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2008	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2009	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2010	with:(Filename currentDirectory construct:'stx_build') pathName)
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2011	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2012
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2013	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2014
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2015	hasUnsavedChanges
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	2016	(super hasUnsavedChanges) ifTrue:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2017	^ false
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2018
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2019	"Modified: / 22-01-2012 / 10:50:15 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2020	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2021
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2022	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2032	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2033
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2034	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2035
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2036	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2037	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2038	I manage settings for bytecode compilation.
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2039	Mostly controlling accepted syntax, warnings and errors.
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2040	"
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
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2043	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'help specs'!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2044
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	2045	helpSpec
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2046	"This resource specification was automatically generated
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2047	by the UIHelpTool of ST/X."
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2048
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2049	"Do not manually edit this!! If it is corrupted,
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2050	the UIHelpTool may not be able to read the specification."
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2051
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2052	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2053	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2054	"
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	<resource: #help>
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2057
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	2058	^ super helpSpec addPairsFrom: #(
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2059
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2060	#arraysAreImmutable
13144 4c218ec84021 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13044 diff changeset	2061	'Array and ByteArray literals are readonly objects, which cannot be modified.
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2062	Prevents constant arrays as returned from a method to be modified elsewhere by accident'
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2063
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2064	#fullDebugInfo
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2065	'Include more debug support in the generated code.
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2066	Especially restartability and returnability of methods in the debugger are improved'
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2067
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2068	#stringsAreImmutable
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2069	'String literals are readonly objects, which cannot be modified.
17057 b18c8b16129d #DOCUMENTATION by mawalch mawalch parents: 17006 diff changeset	2070	Prevents constant strings as returned from a method to be modified elsewhere by accident'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2071
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2072	#allowAssignmentToPoolVariable
17057 b18c8b16129d #DOCUMENTATION by mawalch mawalch parents: 17006 diff changeset	2073	'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	2074
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2075	#allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2076	'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	2077
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2078	#allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2079	'Check this to allow paragraph characters in identifiers.\This is not compatible to other Smalltalk dialects.'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2080
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2081	#allowDolphinExtensions
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2082	'Allow Dolphin-Smalltalk specific syntax extensions'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2083
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2084	#allowEmptyStatements
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2085	'Allow empty statements'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2086
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2087	#allowExtendedBinarySelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2088	'Allow extended binary selectors (more than 2 characters, including "^", "\|" and "#")'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2089
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2090	#allowFixedPointLiterals
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2091	'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	2092
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2093	#allowOldStyleAssignment
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2094	'Allow "_" as assignment. May be required to filein Squeak code'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2095
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2096	#allowQualifiedNames
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2097	'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	2098
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2099	#allowReservedWordsAsSelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2100	'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	2101
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2102	#allowSqueakExtensions
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2103	'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	2104
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2105	#allowUnderscoreInIdentifier
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2106	'Allow underscore characters in identifiers. Not compatible with Squeak.'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2107
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2108	#allowVisualAgeESSymbolLiterals
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2109	'Allow VisualAge ESsymbol literals (##xxx).\Will generate regular symbols when compiled'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2110
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2111	#allowVisualAgePrimitives
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2112	'Allow VisualAge primitive specification syntax'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2113	"/
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2114	"/#warnAboutPossibleSTCCompilationProblems
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2115	"/''
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2116	"/
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2117	#warnAboutPossiblyUnimplementedSelectors
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2118	'Warn about a possibly unimplemented selector in a message send'
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2119
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2120	#warnAboutReferenceToPrivateClass
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2121	'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	2122
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2123	#warnDollarInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2124	'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	2125
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2126	#warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2127	'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	2128
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2129	#warnOldStyleAssignment
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2130	'Warn if an old style assignment ("_" character) is used instead of the modern ":=".'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2131
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2132	#warnPlausibilityChecks
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2133	'Perform plausibility checks and warn about any such possible problem'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2134
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2135	#warnPossibleIncompatibilities
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2136	'Warn about other possible incompatibilities'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2137	"/
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2138	#warnSTXSpecials
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2139	'Warn when ST/X special syntax is encountered.\Such constructs may be unportable to other Smalltalk dialects'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2140	"/
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2141	#warnUnderscoreInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2142	'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	2143
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2144	#warnCommonMistakes
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2145	'Warn about code which is likely to be mistaken, based on heuristics'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2146
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2147	#warnInconsistentReturnValues
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2148	'Warn if a method returns both boolean and non-boolean values (usually a ^self)'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2149
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2150	#warnAboutMissingMethodComment
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2151	'Warn if a method has no comment'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2152
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2153	#warnAboutBadComments
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2154	'Warn if a comment is empty or consists of whitespace only'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2155
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2156	#warnAboutShortLocalVariableNames
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2157	'Warn if a variable''s name is too short to be descriptive'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2158
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2159	#warnAboutNonLowercaseLocalVariableNames
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2160	'By convention, local variables should start with a lowercase character'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2161
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2162	#warnAboutWrongVariableNames
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2163	'Checks for bad articles in variable names (eg. "anUser")'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2164
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2165	#warnUnusedVars
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2166	'Warn if a local variable is never used'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2167
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2168	#warnings
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2169	'Turn off all warnings'
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2170
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2171	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2172
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	2173	"Modified: / 28-02-2019 / 12:52:09 / Claus Gittinger"
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2174	! !
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2175
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2176	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2177
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2178	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2179	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2180
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2181	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2182
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2183	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2184	!
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	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2187	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2188	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2189
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2190	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2191	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2192
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2193	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2194	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2195	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2196	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2197	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2198
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2199	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2200
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2201	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2202	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon1'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2203	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2204	@@@@@@@@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	2205	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	2206	!
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	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2209	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2210	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2211
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2212	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2213	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2214
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2215	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2216	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2217	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2218	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2219	"
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	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2222
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2223	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2224	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon2'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2225	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2226	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP@CL3L3L3L3L0@RHP@@@3L3L3L0@0@RY!!@AHCL3L3LBD@E&Y&DVPCL3
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2227	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	2228	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	2229	@@@@@@@@@@@@@@@@@@@@@@@@') 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	2230	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2231
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2232	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2233	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2234	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2235
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2236	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2237	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2238
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2239	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2240	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2241	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2242	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2243	"
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	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2246
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2247	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2248	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon5'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2249	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2250	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2251	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	2252	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2253	@@@@@@@@@@@@@@@@@@@@@@@@') 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	2254	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2255
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2256	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2259	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2260	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2262	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2266	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2267	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2268	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2269	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2271	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2272
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2273	^
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2274	#(FullSpec
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2275	name: windowSpec
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2276	uuid: '9c92d4c6-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2277	window:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2278	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2279	label: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2280	name: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2281	flags: 1
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2282	uuid: '9c92dc14-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2283	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2284	bounds: (Rectangle 0 0 665 706)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2285	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2286	component:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2287	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2288	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2289	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2290	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2291	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	2292	uuid: '9c92e3bc-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2293	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2294	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2295	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2296	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2297	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2298	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2299	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2300	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2301	label: 'Just in Time Compilation to Machine Code'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2302	name: 'JustInTimeCompilation'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2303	uuid: '9c92e8da-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2304	model: justInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2305	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2306	extent: (Point 665 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2307	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2308	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2309	name: 'Separator3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2310	uuid: '9c92ed9e-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2311	extent: (Point 665 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2312	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2313	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2314	name: 'Box1'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2315	uuid: '9c92f0aa-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2316	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2317	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2318	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2319	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2320	name: 'VerticalPanel1_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2321	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2322	uuid: '9c92f370-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2323	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2324	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2325	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2326	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2327	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2328	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2329	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2330	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2331	label: 'Allow Underscore in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2332	name: 'AllowUnderscoreInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2333	activeHelpKey: allowUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2334	uuid: '9c92f618-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2335	model: allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2336	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2337	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2338	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2339	(CheckBoxSpec
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2340	label: 'Allow Dollar in Identifiers ($)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2341	name: 'AllowDollarInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2342	activeHelpKey: allowDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2343	uuid: '9c92f8e8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2344	model: allowDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2345	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2346	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2347	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2348	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2349	label: 'Allow VW3 QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2350	name: 'AllowVW3QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2351	activeHelpKey: allowQualifiedNames
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2352	uuid: '9c92fb40-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2353	model: allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2354	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2355	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2356	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2357	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2358	label: 'Allow OldStyle Assignment (_)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2359	name: 'AllowOldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2360	activeHelpKey: allowOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2361	uuid: '9c92fd7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2362	model: allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2363	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2364	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2365	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2366	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2367	label: 'Allow Reserved Words as Selector (self)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2368	name: 'AllowReservedWordsAsSelector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2369	activeHelpKey: allowReservedWordsAsSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2370	uuid: '9c92ffaa-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2371	model: allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2372	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2373	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2374	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2375	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2376	label: 'Allow Extended Binary Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2377	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2378	activeHelpKey: allowExtendedBinarySelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2379	uuid: '9c9301e4-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2380	model: allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2381	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2382	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2383	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2384	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2385	label: 'Allow Assignment to Pool Variable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2386	name: 'CheckBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2387	activeHelpKey: allowAssignmentToPoolVariable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2388	uuid: '9c930450-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2389	model: allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2390	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2391	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2392	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2393	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2394
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2395	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2396	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2397	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2398	name: 'VerticalPanel1_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2399	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2400	uuid: '9c9306ee-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2401	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2402	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2403	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2404	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2405	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2406	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2407	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2408	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2409	label: 'Allow Squeak Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2410	name: 'AllowSqueakExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2411	activeHelpKey: allowSqueakExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2412	uuid: '9c93095a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2413	model: allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2414	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2415	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2416	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2417	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2418	label: 'Allow Dolphin Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2419	name: 'AllowDolphinExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2420	activeHelpKey: allowDolphinExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2421	uuid: '9c930bb2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2422	model: allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2423	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2424	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2425	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2426	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2427	label: 'Allow VisualAge ES-Symbols'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2428	name: 'AllowVisualAgeESSymbolLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2429	activeHelpKey: allowVisualAgeESSymbolLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2430	uuid: '9c930dec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2431	model: allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2432	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2433	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2434	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2435	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2436	label: 'Allow VisualAge Primitives'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2437	name: 'CheckBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2438	activeHelpKey: allowVisualAgePrimitives
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2439	uuid: '9c931026-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2440	model: allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2441	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2442	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2443	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2444	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2445	label: 'Allow FixedPoint-Number Literals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2446	name: 'AllowFixedPointLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2447	activeHelpKey: allowFixedPointLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2448	uuid: '9c931242-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2449	model: allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2450	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2451	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2452	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2453	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2454	label: 'Allow Empty Statements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2455	name: 'AllowEmptyStatements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2456	activeHelpKey: allowEmptyStatements
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2457	uuid: '9c93147c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2458	model: allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2459	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2460	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2461	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2462	(CheckBoxSpec
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	2463	label: 'Allow Paragraph in Identifiers (§)'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2464	name: 'CheckBox10'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2465	activeHelpKey: allowParagraphInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2466	uuid: '9c9316ac-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2467	model: allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2468	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2469	extent: (Point 665 22)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2470	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2471	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2472
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
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2477	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2478	extent: (Point 665 157)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2479	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2480	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2481	name: 'Separator4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2482	uuid: '9c931954-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2483	extent: (Point 665 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2484	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2485	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2486	label: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2487	name: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2488	activeHelpKey: warnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2489	uuid: '9c931b7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2490	model: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2491	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2492	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2493	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2494	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2495	name: 'Box2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2496	uuid: '9c931e36-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2497	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2498	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2499	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2500	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2501	name: 'VerticalPanel2_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2502	layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2503	uuid: '9c932052-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2504	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2505	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2506	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2507	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2508	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2509	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2510	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2511	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2512	label: 'ST/X Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2513	name: 'STXExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2514	activeHelpKey: warnSTXSpecials
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2515	uuid: '9c9322be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2516	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2517	model: warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2518	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2519	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2520	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2521	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2522	label: 'Reference to Private Class'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2523	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2524	activeHelpKey: warnAboutReferenceToPrivateClass
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2525	uuid: '9c932534-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2526	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2527	model: warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2528	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2529	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2530	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2531	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2532	label: 'Underscores in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2533	name: 'UnderscoresInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2534	activeHelpKey: warnUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2535	uuid: '9c932778-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2536	enableChannel: enableUnderscore
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2537	model: warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2538	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2539	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2540	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2541	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2542	label: 'Dollars in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2543	name: 'DollarsInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2544	activeHelpKey: warnDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2545	uuid: '9c9329b2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2546	enableChannel: enableDollar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2547	model: warnDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2548	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2549	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2550	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2551	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2552	label: 'OldStyle Assignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2553	name: 'OldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2554	activeHelpKey: warnOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2555	uuid: '9c932bec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2556	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2557	model: warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2558	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2559	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2560	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2561	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2562	label: 'Possible Incompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2563	name: 'PossibleIncompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2564	activeHelpKey: warnPossibleIncompatibilities
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2565	uuid: '9c932e1c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2566	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2567	model: warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2568	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2569	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2570	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2571	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2572	label: 'Possible STC Compilation Problems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2573	name: 'PossibleSTCCompilationProblems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2574	activeHelpKey: warnAboutPossibleSTCCompilationProblems
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2575	uuid: '9c933056-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2576	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2577	model: warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2578	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2579	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2580	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2581	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2582	label: 'Possibly Unimplemented Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2583	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2584	activeHelpKey: warnAboutPossiblyUnimplementedSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2585	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2586	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2587	model: warnAboutPossiblyUnimplementedSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2588	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2589	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2590	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2591	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2592	label: 'Plausibility Checks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2593	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2594	activeHelpKey: warnPlausibilityChecks
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2595	uuid: '9c9334ca-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2596	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2597	model: warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2598	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2599	extent: (Point 313 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2600	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2601	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2602
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2603	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2604	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2605	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2606	name: 'VerticalPanel2_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2607	layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2608	uuid: '9c933736-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2609	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2610	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2611	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2612	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2613	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2614	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2615	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2616	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2617	label: 'Unused Method Variables'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2618	name: 'UnusedMethodVariables'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2619	activeHelpKey: warnUnusedVars
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2620	uuid: '9c933984-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2621	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2622	model: warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2623	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2624	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2625	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2626	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2627	label: 'Bad Variable Names (non-English article)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2628	name: 'BadVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2629	activeHelpKey: warnAboutWrongVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2630	uuid: '9c933c90-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2631	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2632	model: warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2633	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2634	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2635	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2636	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2637	label: 'Bad (Non-Lowercase) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2638	name: 'BadLocalVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2639	activeHelpKey: warnAboutNonLowercaseLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2640	uuid: '9c933ef2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2641	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2642	model: warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2643	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2644	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2645	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2646	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2647	label: 'Bad (Short) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2648	name: 'CheckBox2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2649	activeHelpKey: warnAboutShortLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2650	uuid: '9c934140-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2651	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2652	model: warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2653	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2654	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2655	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2656	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2657	label: 'Bad (empty) Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2658	name: 'BadComments'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2659	activeHelpKey: warnAboutBadComments
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2660	uuid: '9c93437a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2661	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2662	model: warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2663	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2664	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2665	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2666	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2667	label: 'Method-Comment Missing '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2668	name: 'CheckBox5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2669	activeHelpKey: warnAboutMissingMethodComment
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2670	uuid: '9c9345be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2671	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2672	model: warnAboutMissingMethodComment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2673	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2674	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2675	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2676	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2677	label: 'Inconsistent Return Values'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2678	name: 'InconsistentReturnValues'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2679	activeHelpKey: warnInconsistentReturnValues
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2680	uuid: '9c9347f8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2681	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2682	model: warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2683	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2684	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2685	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2686	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2687	label: 'Common Mistakes'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2688	name: 'CommonMistakes'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2689	activeHelpKey: warnCommonMistakes
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2690	uuid: '9c934a32-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2691	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2692	model: warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2693	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2694	extent: (Point 600 22)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2695	)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2696	(CheckBoxSpec
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2697	label: 'Paragraph in Identifier'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2698	name: 'CheckBox11'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2699	activeHelpKey: warnParagraphInIdentifier
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2700	uuid: '9c934c6c-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2701	enableChannel: enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2702	model: warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2703	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2704	extent: (Point 600 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2705	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2706	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2707
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2708	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2709	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2710	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2711
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2712	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2713	extent: (Point 665 206)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2714	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2715	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2716	name: 'Box4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2717	uuid: '9c934f00-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2718	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2719	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2720	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2721	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2722	label: 'Reenable Suppressed Warnings Now'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2723	name: 'Button1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2724	layout: (LayoutOrigin 0 0.5 0 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2725	uuid: '9c93519e-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2726	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2727	model: reenableSuppressedWarnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2728	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2729	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2730
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2731	)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2732	extent: (Point 665 33)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2733	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2734	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2735	name: 'Separator5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2736	uuid: '9c9356ee-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2737	extent: (Point 665 2)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2738	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2739	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2740	label: 'Literal Strings are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2741	name: 'LiteralStringsAreImmutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2742	activeHelpKey: stringsAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2743	uuid: '9c935932-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2744	model: stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2745	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2746	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2747	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2748	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2749	label: 'Literal Arrays are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2750	name: 'CheckBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2751	activeHelpKey: arraysAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2752	uuid: '9c935c02-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2753	model: arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2754	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2755	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2756	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2757	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2758	label: 'Full Debug Info'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2759	name: 'FullDebugInfo'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2760	activeHelpKey: fullDebugInfo
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2761	uuid: '9c935ec8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2762	model: fullDebugSupport
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2763	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2764	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2765	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2766	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2767	name: 'Separator6'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2768	uuid: '9c936170-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2769	extent: (Point 665 2)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2770	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2771	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2772	name: 'Box3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2773	uuid: '9c93636e-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2774	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2775	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2776	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2777	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2778	label: 'Constant Folding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2779	name: 'ConstantFoldingLabel'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2780	layout: (LayoutFrame 0 0 0 0 328 0 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2781	uuid: '9c93658a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2782	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2783	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2784	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2785	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2786	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2787	name: 'ConstantFolding'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2788	layout: (LayoutFrame 330 0 0 0 -5 1 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2789	uuid: '9c9368f0-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2790	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2791	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2792	model: constantFoldingSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2793	menu: constantFolding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2794	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2795	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2796	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2797
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2798	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2799	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2800	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2801	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2802
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2803	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2804	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2805	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2806
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2807	)
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2808	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2809	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2810
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2812
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2813	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2814	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2815	readAspects:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2816	from:ParserFlags.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2817
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2818	self constantFoldingSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2819	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	2820
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2821	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2822	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2823	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2824	self fullDebugSupport value:(ParserFlags fullLineNumberInfo)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2825	].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2826
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2827	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2828	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2829	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2830	self justInTimeCompilation value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2831	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2832
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2833	self warnAboutMissingMethodComment value:(UserPreferences current enforceComment).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2834
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2835	"Modified: / 26-09-2012 / 14:16:32 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2836	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2837
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2838	basicSaveSettings
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2839	\|extensionSettingsChanged\|
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2840
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2841	extensionSettingsChanged := ParserFlags allowSqueakExtensions ~= self allowSqueakExtensions.
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2842
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2843	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2844	writeAspects:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2845	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2846
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2847	ParserFlags lineNumberInfo:(self fullDebugSupport value ifTrue:[#full] ifFalse:[true]).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2849	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2851	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2852	\| justInTime \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2853	justInTime := self justInTimeCompilation value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2854	justInTime ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2855	Smalltalk allMethodsDo:[:m \| m checked:false].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2856	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2857	ObjectMemory justInTimeCompilation:justInTime.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2858	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2859	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2860
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2861	UserPreferences current enforceComment:(self warnAboutMissingMethodComment value).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2862
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2863	extensionSettingsChanged ifTrue:[
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2864	ParserFlags allowSymbolsStartingWithDigit:(ParserFlags allowSqueakExtensions)
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2865	].
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2866
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2867	"Modified: / 18-06-2017 / 16:28:58 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2868	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2869
11292 7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2870	reenableSuppressedWarnings
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2871	ParserFlags reenableAllSuppressedFlags
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2872
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2873	"Created: / 28-02-2012 / 13:32:52 / cg"
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2874	!
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2875
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2876	simpleAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2877	^
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2878	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2879	warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2880	warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2881	warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2882	warnDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2883	warnParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2884	warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2885	warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2886	warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2887	warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2888	warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2889	warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2890	warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2891	warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2892	warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2893	warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2894	warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2895	warnAboutPossiblyUnimplementedSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2896	warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2897
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2898	allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2899	allowParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2900	allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2901	allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2902	allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2903	allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2904	allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2905	allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2906	allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2907	allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2908	allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2909	allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2910	allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2911
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2912	arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2913	stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2914	allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2915	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2916
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2917	"Created: / 20-11-2006 / 22:37:17 / cg"
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2918	"Modified: / 16-11-2016 / 22:40:51 / cg"
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2919	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2920
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2921	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2923	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2924	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2925
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2927
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2928	allowAssignmentToPoolVariable
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2929
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2930	allowAssignmentToPoolVariable isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2931	allowAssignmentToPoolVariable := ParserFlags allowAssignmentToPoolVariable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2932	allowAssignmentToPoolVariable onChangeSend:#updateModifiedChannel to:self.
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2933	].
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2934	^ allowAssignmentToPoolVariable.
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2935
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2936	"Created: / 12-09-2011 / 17:26:01 / cg"
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2937	!
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2938
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	2939	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2941	allowDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2942	allowDollar := ParserFlags allowDollarInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2943	allowDollar onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2944	allowDollar addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2945	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2946	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2947	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2949	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2951	allowDolphinExtensions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2952	allowDolphinExtensions := ParserFlags allowDolphinExtensions asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2953	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2954	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2955	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2956	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2957
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2958	allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2959
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2960	allowEmptyStatements isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2961	allowEmptyStatements := ParserFlags allowEmptyStatements asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2962	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2963	"/ allowEmptyStatements addDependent:self.
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2964	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2965	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2966
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2967	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2968	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2969
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2970	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2971
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2972	allowExtendedBinarySelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2973	allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2974	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2975	].
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2976	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2977	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2978
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2979	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2980
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2981	allowFixedPointLiterals isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2982	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2983	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2984	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2985	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2986	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2987
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2988	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2990	allowOldStyleAssignment isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2991	allowOldStyleAssignment := ParserFlags allowOldStyleAssignment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2992	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2993	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2994	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2995	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2996
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2997	allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2998
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2999	allowParagraph isNil ifTrue:[
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3000	allowParagraph := ParserFlags allowParagraphInIdentifier asValue.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3001	allowParagraph onChangeSend:#updateModifiedChannel to:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3002	allowParagraph addDependent:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3003	].
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3004	^ allowParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3005
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3006	"Created: / 16-11-2016 / 22:38:18 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3007	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3008
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3009	allowQualifiedNames
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3010	"true, if '#{..}' and 'namespace.varName' qualified names are allowed"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3012	allowQualifiedNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3013	allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3014	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3015	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3016	^ allowQualifiedNames.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3017
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3018	"Modified (comment): / 23-09-2018 / 01:08:42 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3019	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3021	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3023	allowReservedWordsAsSelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3024	allowReservedWordsAsSelectors := ParserFlags allowReservedWordsAsSelectors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3025	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3026	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3027	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3028	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3030	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3032	allowSqueakExtensions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3033	allowSqueakExtensions := ParserFlags allowSqueakExtensions asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3034	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3037	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3039	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041	allowUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3042	allowUnderscore := ParserFlags allowUnderscoreInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3043	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3044	allowUnderscore addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3045	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3046	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3047	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3048
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3049	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3050
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3051	allowVisualAgeESSymbolLiterals isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3052	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3053	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3054	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3055	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3056	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3057
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3058	allowVisualAgePrimitives
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3059
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3060	allowVisualAgePrimitives isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3061	allowVisualAgePrimitives := ParserFlags allowVisualAgePrimitives asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3062	allowVisualAgePrimitives onChangeSend:#updateModifiedChannel to:self.
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3063	].
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3064	^ allowVisualAgePrimitives.
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3065
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3066	"Created: / 07-02-2012 / 17:06:19 / cg"
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3067	!
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3068
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3069	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3070
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3071	immutableArrays isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3072	immutableArrays := ParserFlags arraysAreImmutable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3073	immutableArrays onChangeSend:#updateModifiedChannel to:self.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3074	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3075	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3076	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3077
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3078	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3079
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3080	constantFolding isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3081	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3082	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3083	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3084	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3086	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3087
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3088	constantFoldingOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3089	constantFoldingOptions := self class constantFoldingOptions.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3090	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3091	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3092	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3093
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	constantFoldingSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3097	\| index \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3098	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3099	constantFoldingSelection := index asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3100	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3103	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3107	enableDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3108	enableDollar := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3109	enableDollar addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3111	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3113
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3114	enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3115
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3116	enableParagraph isNil ifTrue:[
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3117	enableParagraph := true asValue.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3118	enableParagraph addDependent:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3119	].
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3120	^ enableParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3121
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3122	"Created: / 16-11-2016 / 22:39:57 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3123	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3124
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3125	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3126	enableUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3127	enableUnderscore := true asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3128	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3130	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3132	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134	fullDebugSupport isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3135	self supportsJustInTimeCompilation ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3136	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3137	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3138	fullDebugSupport := (ParserFlags fullLineNumberInfo) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3139	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3140	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	^ fullDebugSupport.
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3143
ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3144	"Modified: / 26-09-2012 / 14:16:27 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3147	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3148
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3149	justInTimeCompilation isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3150	self supportsJustInTimeCompilation ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3151	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3152	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3153	justInTimeCompilation := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3154	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3155	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3160	stringsAreImmutable
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3161
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3162	immutableStrings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3163	immutableStrings := ParserFlags arraysAreImmutable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3164	immutableStrings onChangeSend:#updateModifiedChannel to:self.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3165	].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3166	^ immutableStrings.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3167	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3168
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3169	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3170	warnAboutBadComments isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3171	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3172	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3173	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3174	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3175	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3176
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3177	warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3178
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3179	warnAboutMissingMethodComment isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3180	warnAboutMissingMethodComment := UserPreferences current enforceComment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3181	warnAboutMissingMethodComment onChangeSend:#updateModifiedChannel to:self.
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3182	].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3183	^ warnAboutMissingMethodComment.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3184
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3185	"Created: / 17-07-2010 / 14:39:25 / cg"
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3186	!
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3187
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3188	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3189	warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3190	warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3191	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3192	].
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3193	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3194
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3195	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3196	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3197
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3198	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3199
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3200	warnAboutPossibleSTCCompilationProblems isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3201	warnAboutPossibleSTCCompilationProblems := ParserFlags warnAboutPossibleSTCCompilationProblems asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3202	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3203	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3204	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3205
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3206	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3207	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3208
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3209	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3210
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3211	warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3212	warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3213	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3214	].
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3215	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3216
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3217	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3218	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3219
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3220	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3221	warnAboutReferenceToPrivateClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3222	warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3223	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3224	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3225	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3226	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3227
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3228	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3229	warnAboutShortLocalVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3230	warnAboutShortLocalVariableNames := ParserFlags warnAboutShortLocalVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3231	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3232	].
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3233	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3234	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3235
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3236	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3237	warnAboutWrongVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3238	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3239	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3240	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3241	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3242	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3243
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3244	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3245
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3246	warnCommonMistakes isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3247	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3248	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3249	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3250	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3251	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3252
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3253	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3255	warnDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3256	warnDollar := ParserFlags warnDollarInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3257	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3258	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3259	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3260	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3261
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3262	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3263	warnInconsistentReturnValues isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3264	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3265	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3266	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3267	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3268	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3269
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3270	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3272	warnOldStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3273	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3274	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3275	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3276	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3277	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3278
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3279	warnPlausibilityChecks
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3280
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3281	warnPlausibilityChecks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3282	warnPlausibilityChecks := ParserFlags warnPlausibilityChecks asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3283	warnPlausibilityChecks onChangeSend:#updateModifiedChannel to:self.
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3284	].
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3285	^ warnPlausibilityChecks.
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3286
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3287	"Created: / 19-01-2012 / 10:57:29 / cg"
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3288	!
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3289
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3290	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3291	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3292	are to be warned about"
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3293
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3294	warnCompatibility isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3295	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3296	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3297	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3298	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3299	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3300
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3301	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3303	warnSTX isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3304	warnSTX := ParserFlags warnSTXSpecials asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3305	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3306	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3307	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3308	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3309
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3310	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3311
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3312	warnUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3313	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3314	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3315	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3316	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3317	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3318
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3319	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3321	warnUnusedVars isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3322	warnUnusedVars := ParserFlags warnUnusedVars asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3323	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3324	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3325	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3326	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3328	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3330	warnings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3331	warnings := ParserFlags warnings asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3332	warnings addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3333	warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3334	warnings 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	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3339	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3342	changedObject == self warnings ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3343	changedObject value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3344	self enableUnderscore value:self allowUnderscoreInIdentifier value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3345	self enableDollar value:self allowDollarInIdentifier value.
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3346	self enableParagraph value:self allowParagraphInIdentifier value.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3347	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3348	self enableUnderscore value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3349	self enableDollar value:false.
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3350	self enableParagraph value:false.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3351	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3352	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3353	].
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3354	(changedObject == self allowDollarInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3355	or:[changedObject == self allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3356	or:[changedObject == self allowUnderscoreInIdentifier]]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3357	self warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3358	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3359	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3360
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3361	super update:something with:aParameter from:changedObject
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3362
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3363	"Modified: / 16-11-2016 / 22:39:32 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3364	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3365
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3366	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3367
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3368	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3369	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3370	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3371
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3372	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3374	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	3375	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3376	hasChangedAspectIn:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3377	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3378
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3379	((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	3380	((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	3381	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3382
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3383	(UserPreferences current enforceComment ~= self warnAboutMissingMethodComment value) ifTrue:[^ true].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3384
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3385	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3386
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3387	"Modified: / 26-09-2012 / 14:16:14 / cg"
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	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3392	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3393	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3394
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3395	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3396
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3397	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3398	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3399	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	3400	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3401	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3402
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3403	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'help specs'!
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3404
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3405	helpSpec
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3406	"This resource specification was automatically generated
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3407	by the UIHelpTool of ST/X."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3408
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3409	"Do not manually edit this!! If it is corrupted,
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3410	the UIHelpTool may not be able to read the specification."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3411
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3412	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3413	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3414	"
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3415
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3416	<resource: #help>
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3417
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3418	^ super helpSpec addPairsFrom:#(
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3419
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3420	#changeFileName
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3421	'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	3422
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3423	#logDoits
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3424	'Also record doIt evaluations in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3425
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3426	#updChanges
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3427	'Record code changes (classes and methods) in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3428
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3429	)
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3430	! !
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3431
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3432	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3433
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3434	defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3435	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3436	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3437
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3438	"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	3439	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3440
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3441	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3442	self defaultIcon inspect
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3443	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3444	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3445	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3446
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3447	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3448
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3449	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3450	constantNamed:'AbstractSettingsApplication::ChangeFileSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3451	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3452	@@@@@@@@@@@@@@@ADQDQDQDQDQD @@DTQDQDQDQDQBD@@QP3MDQDQDQDHP@AECQDQDQDQDP!!@@DTMDQDQDQDQBD@@QP3MDP3QDQDHP@AEDQDP3L4QDP!!@@DT
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3453	QDP3QCMDQBD@@QQDP3QDP3QDHP@AEDP3QDQDL4P!!@@DTP3QDQDQCMBD@@QQCL3L3L3L4@P@AEDDQDQDQDQPA@@DTQDQDQDQDQ@D@@QP3MDQDQDQD@P@AEDP4
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3454	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	3455	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3456
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3457	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3458
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3459	windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3460	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3461	by the UIPainter of ST/X."
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	"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	3464	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	3465
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3466	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3467	UIPainter new openOnClass:AbstractSettingsApplication::ChangeFileSettingsAppl andSelector:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3468	AbstractSettingsApplication::ChangeFileSettingsAppl new openInterface:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3469	AbstractSettingsApplication::ChangeFileSettingsAppl open
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
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3472	<resource: #canvas>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3473
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3474	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3475	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3476	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3477	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3478	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3479	label: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3480	name: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3481	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3482	bounds: (Rectangle 0 0 561 478)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3483	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3484	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3485	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3486	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3487	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3488	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3489	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	3490	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3491	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3492	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3493	verticalSpace: 5
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3494	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3495	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3496	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3497	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3498	label: 'Change File'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3499	name: 'FramedBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3500	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3501	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3502	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3503	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3504	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3505	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3506	label: 'Log changed classes and methods in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3507	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3508	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3509	activeHelpKey: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3510	model: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3511	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3512	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3513	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3514	label: 'Log doIts in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3515	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3516	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3517	activeHelpKey: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3518	model: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3519	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3520	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3521	(ViewSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3522	name: 'Box1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3523	layout: (LayoutFrame 5 0 73 0 -5 1 105 0)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3524	component:
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3525	(SpecCollection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3526	collection: (
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3527	(LabelSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3528	label: 'Changefile Name:'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3529	name: 'ChangefileNameLabel'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3530	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	3531	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3532	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3533	adjust: right
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3534	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3535	(FilenameInputFieldSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3536	name: 'FilenameEntryField1'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3537	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	3538	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3539	model: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3540	immediateAccept: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3541	acceptOnReturn: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3542	acceptOnTab: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3543	acceptOnLostFocus: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3544	acceptOnPointerLeave: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3545	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3546	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3547
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3548	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3549	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3550	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3551
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3552	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3553	extent: (Point 551 147)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3554	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3555	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3556
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3557	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3558	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3559	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3560
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3561	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3562	)
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3563	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3564
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3565	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3566
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3567	basicReadSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3568	self changeFileName value:(currentUserPrefs changeFileName
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3569	? ObjectMemory nameForChanges).
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3570	self logDoits value:Smalltalk logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3571	self updChanges value:Class updatingChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3572
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3573	"Modified: / 27-10-2010 / 10:16:48 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3574	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3575
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3576	basicSaveSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3577	\|chgFile\|
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3578
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3579	chgFile := self changeFileName value.
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3580	chgFile := chgFile asNilIfEmpty.
14379 8e683325f9ac class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14377 diff changeset	3581	currentUserPrefs changeFileName isNil ifTrue:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3582	"/ had the default
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3583	chgFile = ObjectMemory nameForChanges ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3584	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3585	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3586	]
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3587	] ifFalse:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3588	"/ had a value before
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3589	chgFile = currentUserPrefs changeFileName ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3590	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3591	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3592	].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3593	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3594	Smalltalk logDoits:self logDoits value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3595	Class updateChanges:self updChanges value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3596
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	3597	"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	3598	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3599
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3600	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
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	changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3603	changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3604	changeFileName := ObjectMemory nameForChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3605	changeFileName onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3606	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3607	^ changeFileName.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3608
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3609	"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	3610	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3611
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3612	logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3613	logDoits isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3614	logDoits := Smalltalk logDoits asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3615	logDoits onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3616	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3617	^ logDoits.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3618
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3619	"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	3620	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3621
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3622	updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3623	updChanges isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3624	updChanges := Class updatingChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3625	updChanges onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3626	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3627	^ updChanges.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3628
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3629	"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	3630	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3631
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3632	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3633
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3634	helpFilename
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3635	^ 'Launcher/messageSettings.html'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3636	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3637
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3638	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3641	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3642	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3643	currentUserPrefs changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3644	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3645	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3646	self changeFileName value ~= currentUserPrefs changeFileName ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3647	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3648	^ false
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	"Modified: / 27-10-2010 / 10:17:21 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3651	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3652
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3653	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3654
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3655	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3656	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3657	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3658
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3659	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3660	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3661
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3662	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3663	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3664	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3665	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3666	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3667
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3668	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3669
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3670	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3671	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3672	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3673	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	3674	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	3675	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	3676	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3677
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3678	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3679
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3680	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3681	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3682	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3685	the UIPainter may not be able to read the specification."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3686
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3687	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3688	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3689	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3690	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3693	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3694
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3695	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3696	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3697	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3698	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3699	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3700	label: 'Code Generator Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3701	name: 'Code Generator Settings'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3702	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3703	bounds: (Rectangle 0 0 607 786)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3704	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3705	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3706	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3707	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3708	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3709	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3710	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3711	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3712	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3713	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3714	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3715	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3716	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3717	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3718	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3719	label: 'Generate Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3720	name: 'GenerateComments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3721	activeHelpKey: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3722	model: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3723	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3724	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3725	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3726	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3727	label: 'Generate Comments in Getters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3728	name: 'GenerateCommentsInGetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3729	activeHelpKey: generateCommentsInGetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3730	enableChannel: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3731	model: generateCommentsInGetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3732	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3733	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3734	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3735	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3736	label: 'Generate Comments in Setters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3737	name: 'GenerateCommentsInSetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3738	activeHelpKey: generateCommentsInSetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3739	enableChannel: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3740	model: generateCommentsInSetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3741	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3742	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3743	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3744	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3745
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3746	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3747	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3748	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3749
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3750	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3751	)
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3752	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3753
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3754	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3755
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3756	aspects
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3757	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3758	generateComments
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3759	generateCommentsForGetters
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3760	generateCommentsForSetters
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3761	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3762	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3763
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3764	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3765	generateComments isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3766	generateComments := UserPreferences current generateComments asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3767	generateComments onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3768	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3769	^ generateComments.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3770	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3771
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3772	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3773	generateCommentsForGetters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3774	generateCommentsForGetters := UserPreferences current generateCommentsForGetters asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3775	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3776	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3777	^ generateCommentsForGetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3778	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3779
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3780	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3781	generateCommentsForSetters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3782	generateCommentsForSetters := UserPreferences current generateCommentsForSetters asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3783	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3784	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3785	^ generateCommentsForSetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3786	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3787
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3788	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3789
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3790	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3791	^ 'Launcher/codeGeneratorSettings.html'
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
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3794	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'help spec'!
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3795
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3796	helpSpec
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3797	"This resource specification was automatically generated
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3798	by the UIHelpTool of ST/X."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3799
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3800	"Do not manually edit this!! If it is corrupted,
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3801	the UIHelpTool may not be able to read the specification."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3802
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3803	"
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3804	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3805	"
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3806
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3807	<resource: #help>
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3808
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3809	^ super helpSpec addPairsFrom:#(
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3810
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3811	#logExecutedOSCommands
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3812	'Display executed OS commands on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3813
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3814	#logHTTPRequests
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3815	'Display outgoing HTTP request on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3816
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3817	#logSOAPRequests
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3818	'Display outgoing SOAP request on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3819
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3820	#logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3821	'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	3822
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3823	)
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3824
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3825	"Created: / 23-05-2018 / 05:47:50 / Claus Gittinger"
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3826	"Modified: / 13-06-2018 / 17:27:24 / Claus Gittinger"
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3827	! !
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3828
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3829	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3830
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3831	defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3832	<resource: #programImage>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3833
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3834	^ self defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3835	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3836
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3837	defaultIcon1
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3838	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3839	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3840
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3841	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3842	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3843
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3844	"
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3845	self defaultIcon1 inspect
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3846	ImageEditor openOnClass:self andSelector:#defaultIcon1
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3847	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3848	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3849
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3850	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3851
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3852	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3853	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3854	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3855	@@@@@@@@@@@@@@@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	3856	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	3857	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	3858	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	3859	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	3860	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3861
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3862	defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3863	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3864	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3865
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3866	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3867	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3868
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3869	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3870	self defaultIcon2 inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3871	ImageEditor openOnClass:self andSelector:#defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3872	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3873	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3874
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3875	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3876
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3877	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3878	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon2'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3879	ifAbsentPut:[(Depth8Image width:17 height:22) bits:(ByteArray fromPackedString:'
9278 f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	3880	@@@@@@@@@@@@@@@@@@@@@@@@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	3881	@ 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	3882	@ (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	3883	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	3884	@@@@@@@@@@@@@@@@@@@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	3885	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3886
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3887	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3888
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3889	windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3890	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3891	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3894	the UIPainter may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3895
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3896	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3897	UIPainter new openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl andSelector:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3898	AbstractSettingsApplication::CommunicationLoggingSettingsAppl new openInterface:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3899	AbstractSettingsApplication::CommunicationLoggingSettingsAppl open
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
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3902	<resource: #canvas>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3903
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3904	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3905	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3906	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3907	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3908	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3909	label: 'Com-Logging settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3910	name: 'Com-Logging settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3911	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3912	bounds: (Rectangle 0 0 445 401)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3913	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3914	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3915	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3916	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3917	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3918	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3919	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3920	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3921	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3922	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3923	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3924	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3925	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3926	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3927	(CheckBoxSpec
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3928	label: 'Log Executed OS Commands'
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3929	name: 'LogExecutedOSCommands'
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3930	activeHelpKey: logExecutedOSCommands
41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3931	model: logExecutedOSCommands
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3932	translateLabel: true
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3933	extent: (Point 571 34)
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3934	)
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3935	(CheckBoxSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3936	label: 'Log Outgoing HTTP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3937	name: 'LogHTTPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3938	activeHelpKey: logHTTPRequests
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3939	model: logHTTPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3940	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3941	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3942	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3943	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3944	label: 'Log Outgoing SOAP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3945	name: 'LogSOAPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3946	activeHelpKey: logSOAPRequests
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3947	model: logSOAPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3948	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3949	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3950	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3951	(CheckBoxSpec
18208 1c027c9eb9de #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18207 diff changeset	3952	label: 'Log IMAP and POP3 Communication Protocols'
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3953	name: 'LogNetCommunications'
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3954	activeHelpKey: logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3955	model: logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3956	translateLabel: true
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3957	extent: (Point 435 30)
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3958	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3959	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3960
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3961	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3962	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3963	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3964
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3965	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3966	)
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3967
41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3968	"Modified: / 17-05-2018 / 12:50:11 / Stefan Vogel"
18208 1c027c9eb9de #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18207 diff changeset	3969	"Modified: / 13-06-2018 / 17:46:28 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3970	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3971
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3972	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3973
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3974	aspects
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3975	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3976	logHTTPRequests
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3977	logSOAPRequests
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3978	logExecutedOSCommands
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3979	logNetCommunications
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3980	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3981
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3982	"Modified: / 13-06-2018 / 17:28:08 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3983	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3984
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3985	logExecutedOSCommands
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3986	logExecutedOSCommands isNil ifTrue:[
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3987	logExecutedOSCommands := false asValue.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3988	logExecutedOSCommands onChangeSend:#updateModifiedChannel to:self
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3989	].
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3990	^ logExecutedOSCommands.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3991	!
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3992
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3993	logHTTPRequests
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3994	logHTTPRequests isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3995	logHTTPRequests := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3996	logHTTPRequests onChangeSend:#updateModifiedChannel to:self
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3997	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3998	^ logHTTPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3999	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4000
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4001	logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4002	logNetCommunications isNil ifTrue:[
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4003	logNetCommunications := false asValue.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4004	logNetCommunications onChangeSend:#updateModifiedChannel to:self
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4005	].
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4006	^ logNetCommunications.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4007
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4008	"Created: / 13-06-2018 / 17:27:50 / Claus Gittinger"
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4009	!
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4010
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4011	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4012	logSOAPRequests isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4013	logSOAPRequests := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4014	logSOAPRequests onChangeSend:#updateModifiedChannel to:self
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4015	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4016	^ logSOAPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4017	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4018
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4019	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4020
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4021	helpFilename
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4022	^ 'Launcher/comLoggingSettings.html'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4023	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4024
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4025	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4026
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4027	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4028	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4029	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4030
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4031	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4032	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4033
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4034	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4035	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4036	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4037
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4038	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4039
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4040	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4041
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4042	#allowSendingMail
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4043	'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	4044
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4045	#hideSupportCode
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4046	'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	4047
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4048	#showErrorNotifier
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4049	'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	4050
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4051	#showVerboseStack
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4052	'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	4053
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4054	#useNewLayout
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4055	'Use the new button layout with step/next buttons in the middle'
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4056
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4057	)
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4058
b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4059	"Modified: / 01-06-2017 / 14:12:51 / mawalch"
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4060	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4061
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4062	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4063
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4064	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4065	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4066
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4067	^ ToolbarIconLibrary bugReporter24x24Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4068	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4070	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4071
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4072	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4073	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4074	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4075
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4076	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4077	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4079	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4080	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4081	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4082	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4083	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4084
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4085	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4086
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4087	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4088	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4089	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4090	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4091	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4092	label: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4093	name: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4094	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4095	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4096	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4097	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4098	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4099	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4100	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4101	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4102	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	4103	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4104	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4105	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4106	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4107	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4108	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4109	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4110	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4111	name: 'ShowErrorNotifierBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4112	activeHelpKey: showErrorNotifier
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4113	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4114	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4115	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4116	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4117	label: 'Show Error Notifier before Opening Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4118	name: 'ShowErrorNotifierCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4119	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4120	activeHelpKey: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4121	model: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4122	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4123	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4124	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4125
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4126	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4127	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4128	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4129	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4130	name: 'UseNewLayoutInDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4131	activeHelpKey: useNewLayout
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4132	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4133	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4134	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4135	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4136	label: 'Use New Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4137	name: 'UseNewLayoutInDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4138	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4139	activeHelpKey: useNewLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4140	model: useNewLayoutInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4141	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4142	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4143	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4144
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4145	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4146	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4147	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4148	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4149	name: 'ShowVerboseStackBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4150	activeHelpKey: showVerboseStack
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4151	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4152	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4153	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4154	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4155	label: 'Verbose Backtrace by Default in Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4156	name: 'ShowVerboseStackCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4157	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4158	activeHelpKey: showVerboseStack
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4159	model: verboseBacktraceInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4160	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4161	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4162	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4163
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4164	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4165	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4166	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4167	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4168	name: 'HideEnumerationCodeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4169	activeHelpKey: hideSupportCode
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4170	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4171	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4172	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4173	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4174	label: 'Hide Support Code (Implementation of Enumerations, Exceptions, etc.)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4175	name: 'CheckBox1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4176	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4177	activeHelpKey: hideSupportCode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4178	model: hideSupportCodeInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4179	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4180	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4181	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4182
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4183	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4184	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4185	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4186	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4187	name: 'AllowSendingMailFromDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4188	activeHelpKey: allowSendingMail
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4189	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4190	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4191	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4192	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4193	label: 'Allow Sending of Error Reports from Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4194	name: 'AllowSendingMailFromDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4195	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4196	activeHelpKey: allowSendingMail
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4197	model: allowSendMailFromDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4198	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4199	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4200	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4201
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4202	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4203	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4204	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4205	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4206
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4207	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4208	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4209	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4210
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4211	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4212	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4213	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4214
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4215	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4216
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4217	basicReadSettings
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4218	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4219	super basicReadSettings.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4220
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4221	"Modified: / 10-06-2012 / 21:23:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4222	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4223
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4224	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4225	self showErrorNotifier value ifFalse:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4226	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4227	] ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4228	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4229	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4230	super basicSaveSettings.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4231	Debugger newDebugger.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4232
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4233	"Modified: / 10-06-2012 / 21:23:32 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4234	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4235
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4236	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4237
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4238	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4239
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4240	allowSendMailFromDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4241	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4242	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4243	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4244	^ allowSendMailFromDebugger.
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
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4247	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4248	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4249	allowSendMailFromDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4250	verboseBacktraceInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4251	hideSupportCodeInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4252	useNewLayoutInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4253	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4254	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4255
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4256	hideSupportCodeInDebugger
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4257
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4258	hideSupportCodeInDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4259	hideSupportCodeInDebugger := (UserPreferences current hideSupportCodeInDebugger ? true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4260	hideSupportCodeInDebugger onChangeSend:#updateModifiedChannel to:self
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4261	].
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4262	^ hideSupportCodeInDebugger.
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4263
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4264	"Created: / 10-06-2012 / 21:23:40 / cg"
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4265	!
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4266
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4267	showErrorNotifier
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	showErrorNotifier isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4270	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4271	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4272	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4273	^ showErrorNotifier.
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
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4276	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4277
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4278	useNewLayoutInDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4279	useNewLayoutInDebugger := (UserPreferences current useNewLayoutInDebugger) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4280	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4281	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4282	^ useNewLayoutInDebugger.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4283	!
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4284
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4285	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4286
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4287	verboseBacktraceInDebugger isNil ifTrue:[
15258 27aafcf5e745 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15166 diff changeset	4288	verboseBacktraceInDebugger := (UserPreferences current verboseBacktraceInDebugger) asValue.
27aafcf5e745 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15166 diff changeset	4289	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4290	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4291	^ verboseBacktraceInDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4292	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4293
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4294	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4295
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4296	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4297	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4298	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4299
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4300	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4301
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4302	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4303	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4304	^ super hasUnsavedChanges
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4305
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4306	"Modified: / 10-06-2012 / 21:23:54 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4307	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4308
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4311	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4313	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4314	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4315
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4316	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4318	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4319	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4321	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4322
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4323	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4324	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4325
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4326	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4328	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4329	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4330
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4331	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4333	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4334	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4335
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4336	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4337
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4338	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4339	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4340
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4341	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'help specs'!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4342
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4343	helpSpec
16340 326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4344	<resource: #help>
326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4345
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4346	^ super helpSpec addPairsFrom:#(
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4347
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4348	#enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4349	'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	4350
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4351	)
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4352
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4353	"Created: / 24-06-2014 / 19:39:38 / cg"
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4354	"Modified: / 28-02-2019 / 12:51:36 / Claus Gittinger"
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4355	! !
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4356
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4357	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4358
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4359	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4360	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4361
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4362	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4363	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4364
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4375	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4376	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4377	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4382	^
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4383	#(FullSpec
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4384	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4385	window:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4386	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4387	label: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4388	name: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4389	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4390	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4391	bounds: (Rectangle 0 0 604 500)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4392	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4393	component:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4394	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4395	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4396	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4397	label: 'Actual Visible Screen Area:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4398	name: 'ActualVisibleScreenAreaLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4399	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4400	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4401	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4402	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4403	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4404	label: 'Common Sizes:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4405	name: 'CommonSizesLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4406	layout: (LayoutFrame 0 0 39 0 277 0 69 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4407	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4408	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4409	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4410	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4411	label: 'monitor size'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4412	name: 'MonitorSelectionPopUpList'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4413	layout: (LayoutFrame 280 0 39 0 -5 1 69 0)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4414	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4415	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4416	model: monitorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4417	menu: monitorList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4418	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4419	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4420	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4421	label: 'Screen Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4422	name: 'ScreenSizeLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4423	layout: (LayoutFrame 5 0 73 0 277 0 103 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4424	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4425	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4426	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4427	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4428	name: 'SizeXEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4429	layout: (LayoutFrame 280 0 72 0 347 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4430	model: sizeX
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4431	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4432	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4433	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4434	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4435	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4436	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4437	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4438	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4439	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4440	name: 'xLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4441	layout: (LayoutFrame 348 0 72 0 369 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4442	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4443	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4444	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4445	name: 'SizeYEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4446	layout: (LayoutFrame 370 0 72 0 437 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4447	model: sizeY
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4448	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4449	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4450	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4451	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4452	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4453	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4454	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4455	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4456	label: '(mm)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4457	name: 'mmLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4458	layout: (LayoutFrame 439 0 72 0 485 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4459	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4460	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4461	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4462	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4463	label: 'Limit Usable Area To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4464	name: 'Label1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4465	layout: (LayoutFrame 5 0 110 0 277 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4466	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4467	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4468	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4469	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4470	name: 'EntryField1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4471	layout: (LayoutFrame 280 0 110 0 347 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4472	model: usedWidth
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4473	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4474	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4475	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4476	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4477	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4478	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4479	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4480	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4481	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4482	name: 'Label2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4483	layout: (LayoutFrame 348 0 110 0 369 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4484	translateLabel: 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	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4487	name: 'EntryField2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4488	layout: (LayoutFrame 370 0 110 0 437 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4489	model: usedHeight
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4490	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4491	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4492	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4493	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4494	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4495	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4496	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4497	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4498	label: '(Pixel)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4499	name: 'Label3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4500	layout: (LayoutFrame 439 0 110 0 507 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4501	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4502	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4503	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4504	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4505	label: 'Restore'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4506	name: 'Button1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4507	layout: (AlignmentOrigin 512 0 124 0 0 0.5)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4508	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4509	model: restoreUsableExtent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4510	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4511	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4512	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4513	layout: (LayoutFrame 0 0.0 143 0 0 1.0 147 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4514	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4515	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4516	name: 'ScreenDepthVisualLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4517	layout: (LayoutFrame 0 0.0 151 0.0 0 1.0 181 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4518	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4519	labelChannel: screenDepthVisualLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4520	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4521	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4522	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4523	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4524	layout: (LayoutFrame 0 0.0 182 0 0 1.0 186 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4525	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4526	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4527	label: 'Color Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4528	name: 'ColorMonitorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4529	layout: (LayoutFrame 5 0 193 0 250 0 223 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4530	model: isColorMonitor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4531	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4532	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4533	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4534	label: 'Use Fix Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4535	name: 'FixColorPaletteCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4536	layout: (LayoutFrame 5 0 223 0 301 0 253 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4537	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4538	model: useFixPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4539	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4540	labelChannel: useFixPaletteLabel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4541	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4542	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4543	label: 'Use Fix Gray Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4544	name: 'UseFixGrayPaletteCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4545	layout: (LayoutFrame 5 0 257 0 301 0 287 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4546	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4547	model: useFixGrayPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4548	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4549	labelChannel: useFixGrayPaletteLabel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4550	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4551	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4552	label: 'Image Display:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4553	name: 'ImageDisplayLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4554	layout: (LayoutFrame 5 0 294 0 227 0 324 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4555	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4556	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4557	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4558	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4559	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4560	name: 'DitherListPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4561	layout: (LayoutFrame 230 0 294 0 -30 1 324 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4562	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4563	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4564	model: ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4565	enableChannel: ditherSymsNotNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4566	menu: ditherList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4567	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4568	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4569	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4570	label: 'Allow Colored/Grayscale Icons'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4571	name: 'AllowColoredGrayscaleIconsCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4572	layout: (LayoutFrame 5 0 334 0 301 0 364 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4573	model: deepIcons
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4574	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4575	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4576	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4577	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4578	layout: (LayoutFrame 0 0.0 368 0 0 1.0 372 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4579	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4580	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4581	label: 'ClipBoard Encoding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4582	name: 'ClipBoardEncodingLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4583	layout: (LayoutFrame 0 0 383 0 277 0 413 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4584	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4585	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4586	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4587	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4588	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4589	name: 'ClipEncodingListPopUpList'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4590	layout: (LayoutFrame 278 0 383 0 -30 1 413 0)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4591	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4592	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4593	model: clipEncodingListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4594	menu: clipEncodingList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4595	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4596	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4597	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4598	label: 'Max. CopyBuffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4599	name: 'MaxCopyBufferSizeLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4600	layout: (LayoutFrame 0 0 418 0 277 0 448 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4601	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4602	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4603	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4604	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4605	name: 'MaxCopyBufferEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4606	layout: (LayoutFrame 278 0 418 0 373 0 448 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4607	model: maxCopyBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4608	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4609	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4610	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4611	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4612	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4613	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4614	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4615	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4616	name: 'Separator4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4617	layout: (LayoutFrame 0 0.0 454 0 0 1.0 458 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4618	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4619	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4620	label: 'Enable VMWare Drawing Bug Workaround (Limit Number of Buffered Operations)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4621	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4622	layout: (LayoutFrame 5 0 464 0 0 1 486 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4623	activeHelpKey: enableVMWareDrawingBugWorkaround
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4624	model: enableVMWareDrawingBugWorkaround
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4625	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4626	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4627	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4628
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4629	)
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4630	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4631	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4633	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4634
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4635	basicReadSettings
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4636	self enableVMWareDrawingBugWorkaround value: currentUserPrefs enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4637
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4638	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4639	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4640	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4641	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4642	self sizeY value:screen heightInMillimeter.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4643	self usedWidth value:screen usableWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4644	self usedHeight value:screen usableHeight.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4645	self deepIcons value:screen supportsDeepIcons.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4646
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4647	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4648	self ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4649	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4650	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4651	self clipEncodingListSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4652	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4653	ifAbsent:1).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4654
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4655	"Modified: / 19-11-2013 / 10:25:51 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4656	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4657
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4658	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4659
17005 a0d0b5aa304d #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16992 diff changeset	4660	currentUserPrefs enableVMWareDrawingBugWorkaround:self enableVMWareDrawingBugWorkaround value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4661	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4662
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4663	screen visualType == #PseudoColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4664	self useFixPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4665	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4666	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4667	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4668	Color getColorsRed:4 green:8 blue:4 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4669	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4670	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4671	screen releaseFixColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4672	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4673
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4674	self useFixGrayPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4675	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4676	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4677	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4678	Color getGrayColors:32 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4679	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4680	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4681	screen releaseFixGrayColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4682	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4683	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4684	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4685	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4686	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4687
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4688	screen setUsableWidth:self usedWidth value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4689	screen setUsableHeight:self usedHeight value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4690
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4691	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4692	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4693	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4694	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4695
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4696	WindowGroup activeGroup withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4697	View defaultStyle:(View defaultStyle).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4698	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4699
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	4700	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4701
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4702	"Modified: / 19-11-2013 / 10:26:08 / cg"
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4703	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4704
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4705	restoreUsableExtent
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4706	self usedWidth value:(screen queryWidth).
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4707	self usedHeight value:(screen queryHeight).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4708	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4710	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4712	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4714	clipEncodingList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4715	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4716	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4717	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4718	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4719	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4720	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4721	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4722
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4723	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4725	clipEncodingListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4726	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4727	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4729	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4730	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4732	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4734	deepIcons isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4735	deepIcons := screen supportsDeepIcons asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4736	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4737	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4738	^ deepIcons.
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	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4743	ditherList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4744	ditherList := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4746	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751	ditherListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4752	ditherSyms notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4753	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4754	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4755	ditherListSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4756	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4757	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4758	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4759	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4762	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4764	ditherSymsNotNil isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4765	ditherSymsNotNil := ditherSyms notNil asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4770	enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4771
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4772	enableVMWareDrawingBugWorkaround isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4773	enableVMWareDrawingBugWorkaround := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4774	enableVMWareDrawingBugWorkaround onChangeSend:#updateModifiedChannel to:self.
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4775	].
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4776	^ enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4777
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4778	"Created: / 19-11-2013 / 10:24:42 / cg"
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4779	!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4780
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4783	isColorMonitor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4784	isColorMonitor := screen hasColors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4785	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4786	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4787	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4788	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4789
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4790	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4791
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4792	maxCopyBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4793	maxCopyBufferSize := (810241024) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4794	maxCopyBufferSize addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4795	maxCopyBufferSize changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4796	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4797	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4798	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4799	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4800
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4801	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4803	monitorList isNil ifTrue:[
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4804	monitorList := (resources array:(sizeInfos collectColumn:1)) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4805	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4806	^ monitorList.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4807
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4808	"Modified: / 22-09-2018 / 11:20:11 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4809	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4810
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4811	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4812
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4813	monitorSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4814	monitorSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4815	monitorSelection addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4816	monitorSelection onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4817	monitorSelection changed.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4818	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4819	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4820	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4822	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4824	screenDepthVisualLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4825	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4826	with:screen depth printString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4827	with:screen visualType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4828	with:screen serverVendor) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4829	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4830	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4831	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4833	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4834
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4835	sizeX isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4836	sizeX := screen widthInMillimeter asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4837	sizeX addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4838	sizeX changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4839	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4840	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4841	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4842	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4843
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4844	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4845
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4846	sizeY isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4847	sizeY := screen heightInMillimeter asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4848	sizeY addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4849	sizeY changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4850	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4851	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4852	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4853	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4855	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4857	useFixGrayPalette isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4858	useFixGrayPalette := screen fixGrayColors notNil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4859	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4860	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4861	^ useFixGrayPalette.
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	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4866	useFixGrayPaletteLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4867	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4868	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4869	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4870	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4872	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4874	useFixPalette isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4875	useFixPalette := screen fixColors notNil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4876	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4877	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4878	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4879	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4881	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4882
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4883	useFixPaletteLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4884	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4885	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4886	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4887	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4888
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4889	usedHeight
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4890	usedHeight isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4891	usedHeight := screen usableHeight asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4892	usedHeight addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4893	usedHeight changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4894	usedHeight onChangeSend:#updateModifiedChannel to:self.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4895	].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4896	^ usedHeight.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4897	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4898
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4899	usedWidth
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4900	usedWidth isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4901	usedWidth := screen usableWidth asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4902	usedWidth addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4903	usedWidth changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4904	usedWidth onChangeSend:#updateModifiedChannel to:self.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4905	].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4906	^ usedWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4907	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4908
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4909	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4911	visualIsPseudoColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4912	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4913	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4914	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4915	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4916	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4918	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4920	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4922	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4924	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4925	(sel notNil and:[sel ~~ 0]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4926	sizeInfoEntry := sizeInfos at:sel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4927	sizes := sizeInfoEntry at:2.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4928	self sizeX value:(sizes at:1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4929	self sizeY value:(sizes at:2).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4930	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4931	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4933	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4934	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4935
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4936	sizes := sizeInfos collectColumn:2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4937	idx := sizes findFirst:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4938	((entry at:1) = sizeX value)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4939	and:[((entry at:2) = sizeY value)]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4940	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4941	idx ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4942	self monitorSelection value:idx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4943	].
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4944
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4945	"Modified: / 22-09-2018 / 11:20:19 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4946	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4947
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4948	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4949	changedObject == self monitorSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4950	self monitorSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4951	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4952	].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4953	(changedObject == self sizeX or:[changedObject == self sizeY]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4954	self sizeXorYChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4955	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4956	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4958	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4959	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4960
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4961	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4962
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4963	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4964	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4965	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4966
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4967	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4969	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4970
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	4971	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	4972
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4973	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4974
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4975	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4976
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4977	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4978	listOfSizes == #default ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4979	"/ nothing in resource file; offer at least some.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4980	sizeInfos := #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4981	( '11.3'' (235mm x 175mm) LCD' (235 175) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4982	( '17'' (325mm x 245mm)' (325 245) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4983	( '19'' (340mm x 270mm)' (340 270) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4984	( '20'' (350mm x 280mm)' (350 280) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4985	( '21'' (365mm x 285mm)' (365 285) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4986	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4987	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4988	sizeInfos := resources array:listOfSizes.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4989	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4990	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4991	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4992	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4993	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4994	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4995	visual ~~ #TrueColor ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4996	ditherStyles := self class trueColorDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4997	ditherSyms := self class trueColorDitherSyms.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4998	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4999	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5000	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5001
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5002	"Modified: / 08-02-2017 / 00:30:30 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5003	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5005	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5007	hasUnsavedChanges
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5008	self enableVMWareDrawingBugWorkaround value ~~ currentUserPrefs enableVMWareDrawingBugWorkaround ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5009	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5010	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5011	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5012	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5013	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5014	self usedWidth value ~= screen usableWidth ifTrue:[^ true].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5015	self usedHeight value ~= screen usableHeight ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5016
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5017	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5018	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5019	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	5020	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	5021	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	5022	^ false
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5023
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5024	"Modified: / 19-11-2013 / 10:26:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5025	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5026
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5027	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'help specs'!
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5028
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5029	helpSpec
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5030	"This resource specification was automatically generated
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5031	by the UIHelpTool of ST/X."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5032
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5033	"Do not manually edit this!! If it is corrupted,
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5034	the UIHelpTool may not be able to read the specification."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5035
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5036	"
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5037	UIHelpTool openOnClass:AbstractSettingsApplication::EditSettingsAppl
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5038	"
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5039
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5040	<resource: #help>
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5041
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5042	^ super helpSpec addPairsFrom:#(
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5043
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5044	"/#resetToDefault
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5045	"/'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	5046	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5047	"/#changeToHighContrast
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5048	"/'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	5049	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5050	"/#changeToBigFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5051	"/'Change settings for bigger fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5052	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5053	"/#changeToHugeFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5054	"/'Change settings for huge fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5055	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5056	"/#changeToSTXLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5057	"/'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	5058	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5059	"/#changeToSqueakLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5060	"/'Change settings for a Squeak-like look (variable fonts)'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5061	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5062	"/#changeToVisualAgeLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5063	"/'Change settings for a VisualAge-like look (bold variable fonts)'
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5064
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5065	#immediateCodeCompletion
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5066	'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	5067
13499bd0fa9b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13459 diff changeset	5068	#codeCompletionOnControlKey
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5069	'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	5070
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5071	#codeCompletionOnTabKey
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5072	'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	5073
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5074	#codeCompletionViewKeyboardNavigationNeedsModifier
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5075	'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	5076
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5077	#alwaysPasteFileContents
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5078	'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	5079
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5080	#autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5081	'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	5082
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5083	#extendedWordSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5084	'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	5085
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5086	#searchBoxIsModal
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5087	'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	5088
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5089	#selectAllWhenClickingBeyondEnd
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5090	'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	5091
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5092	#showAcceptCancelBar
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5093	'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	5094
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5095	#st80DoubleClickSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5096	'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	5097
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5098	#st80EditMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5099	'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	5100
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5101
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5102	#startTextDragWithCTRL
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5103	'Press CTRL to drag the selected text into another view'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5104
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5105	#tabStops4
13145 cf52caa3b513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13144 diff changeset	5106	'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	5107
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5108	#useNewCodeView2
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5109	'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	5110
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5111	#whitespaceWordSelectMode
16788 c658333e6e72 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16718 diff changeset	5112	'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	5113
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5114	#selectionExtensionModelStandard
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5115	'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	5116
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5117	#selectionExtensionModelTraditional
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5118	'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	5119
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5120	)
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5121
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5122	"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	5123	"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	5124	! !
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5125
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5126	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5127
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5128	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5129	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5130
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5131	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5132	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5133
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5134	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5136	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5137	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5138	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5139
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5140	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5141	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5142
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5143	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5144	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5145	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5146	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5147	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5148
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5149	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5150
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5151	^
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5152	#(FullSpec
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5153	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5154	window:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5155	(WindowSpec
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5156	label: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5157	name: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5158	flags: 1
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5159	min: (Point 10 10)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5160	bounds: (Rectangle 0 0 658 543)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5161	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5162	component:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5163	(SpecCollection
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5164	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5165	(VerticalPanelViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5166	name: 'VerticalPanel1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5167	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5168	horizontalLayout: fit
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5169	verticalLayout: top
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5170	horizontalSpace: 3
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5171	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5172	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5173	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5174	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5175	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5176	label: 'Use the New Code Editor (v2)'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5177	name: 'UserCodeView2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5178	activeHelpKey: useNewCodeView2
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5179	model: useCodeView2InTools
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5180	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5181	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5182	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5183	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5184	label: 'Show Accept/Cancel Bar in Editor'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5185	name: 'ShowAcceptCancelBarInBrowser'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5186	activeHelpKey: showAcceptCancelBar
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5187	model: showAcceptCancelBarInBrowser
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5188	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5189	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5190	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5191	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5192	label: 'SearchBox is Modal'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5193	name: 'SearchBoxModalCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5194	activeHelpKey: searchBoxIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5195	model: searchDialogIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5196	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5197	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5198	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5199	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5200	name: 'Separator6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5201	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5202	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5203	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5204	label: 'Code Completion as you Type'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5205	name: 'CheckBox5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5206	activeHelpKey: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5207	model: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5208	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5209	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5210	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5211	(ViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5212	name: 'Box1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5213	activeHelpKey: codeCompletionOnControlKey
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5214	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5215	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5216	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5217	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5218	label: 'Code Completion on CTRL Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5219	name: 'CheckBox6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5220	layout: (LayoutFrame 0 0 0 0 350 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5221	activeHelpKey: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5222	model: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5223	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5224	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5225	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5226	label: 'On TAB Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5227	name: 'CheckBox7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5228	layout: (LayoutFrame 380 0 0 0 658 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5229	activeHelpKey: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5230	model: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5231	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5232	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5233	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5234
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5235	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5236	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5237	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5238	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5239	label: 'Shift/CTRL for Navigation in Completion List'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5240	name: 'CheckBox8'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5241	activeHelpKey: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5242	model: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5243	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5244	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5245	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5246	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5247	name: 'Separator5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5248	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5249	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5250	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5251	label: 'Tab Stops in Multiples of 4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5252	name: 'TabStopsMultiples4CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5253	activeHelpKey: tabStops4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5254	model: tabsIs4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5255	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5256	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5257	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5258	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5259	name: 'Separator2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5260	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5261	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5262	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5263	label: 'CTRL-Key to Start TextDrag'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5264	name: 'CTRLKeyStTextDragCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5265	activeHelpKey: startTextDragWithCTRL
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5266	model: startTextDragWithControl
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5267	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5268	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5269	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5270	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5271	label: 'Always Paste the Contents when Dropping a File (Do not Ask) '
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5272	name: 'EnforceContentsDropForFiles'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5273	activeHelpKey: alwaysPasteFileContents
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5274	model: enforceContentsDropForFiles
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5275	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5276	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5277	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5278	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5279	name: 'Separator4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5280	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5281	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5282	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5283	label: 'Autoindent (Position Cursor on Return Key in Code Editors)'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5284	name: 'CheckBox3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5285	activeHelpKey: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5286	model: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5287	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5288	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5289	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5290	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5291	label: 'Cursor has Standard Line-End Behavior'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5292	name: 'CursorST80LineEndBehaviorCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5293	activeHelpKey: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5294	model: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5295	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5296	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5297	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5298	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5299	name: 'Separator3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5300	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5301	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5302	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5303	label: 'Select all when Clicking beyond the Text''s End'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5304	name: 'CheckBox2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5305	activeHelpKey: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5306	model: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5307	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5308	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5309	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5310	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5311	label: 'Double Click Select Behavior as in ST80'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5312	name: 'DoubleClickSelectBehaviorST80CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5313	activeHelpKey: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5314	model: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5315	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5316	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5317	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5318	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5319	label: 'Treat Underscore as Letter in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5320	name: 'UnderscoreIsLetterCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5321	activeHelpKey: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5322	model: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5323	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5324	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5325	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5326	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5327	label: 'Any non-Whitespace in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5328	name: 'CheckBox1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5329	activeHelpKey: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5330	model: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5331	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5332	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5333	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5334	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5335	name: 'Separator7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5336	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5337	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5338	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5339	label: 'Traditional ST/X Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5340	name: 'RadioButton1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5341	activeHelpKey: selectionExtensionModelTraditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5342	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5343	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5344	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5345	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5346	select: traditional
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	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5350	label: 'Standard Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5351	name: 'RadioButton2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5352	activeHelpKey: selectionExtensionModelStandard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5353	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5354	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5355	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5356	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5357	select: standard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5358	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5359	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5360	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5361
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5362	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5363	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5364	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5365
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5366	)
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5367	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5368	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5370	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5371
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5372	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5373	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5374
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5375	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5376	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	5377	self enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5378	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5379
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5380	basicSaveSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5381	super basicSaveSettings.
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5382
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5383	currentUserPrefs enforcedDropModeForFiles:
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5384	( self enforceContentsDropForFiles value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5385	ifTrue:[ #text ]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5386	ifFalse:[ nil ] ).
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5387
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5388	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5389	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5390	ListView userDefaultTabPositions:
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5391	(self tabsIs4 value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5392	ifTrue:[ListView tab4Positions]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5393	ifFalse:[ListView tab8Positions]).
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5394
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5395	ListView allSubInstancesDo:[:eachKindOfListView \|
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5396	self tabsIs4 value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5397	ifTrue:[eachKindOfListView setTab4]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5398	ifFalse:[eachKindOfListView setTab8]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5399	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5400	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5401	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5402
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5403	commonAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5404	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5405	#useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5406	#showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5407	#searchDialogIsModal
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5408	#startTextDragWithControl
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5409	#st80EditMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5410	#extendedWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5411	#whitespaceWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5412	#selectAllWhenClickingBeyondEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5413	#autoIndentInCodeView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5414	#immediateCodeCompletion
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5415	#codeCompletionOnControlKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5416	#codeCompletionOnTabKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5417	#codeCompletionViewKeyboardNavigationNeedsModifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5418	#selectionExtensionMode
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5419	)
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5420
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5421	"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	5422	"Modified: / 27-03-2014 / 10:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5427	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5428	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5429	#useCodeView2InTools
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5430	#showAcceptCancelBarInBrowser
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5431	#searchDialogIsModal
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5432	#startTextDragWithControl
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5433	#st80EditMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5434	#extendedWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5435	#whitespaceWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5436	#selectAllWhenClickingBeyondEnd
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5437	#autoIndentInCodeView
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5438	#immediateCodeCompletion
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5439	#codeCompletionOnControlKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5440	#codeCompletionOnTabKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5441	#codeCompletionViewKeyboardNavigationNeedsModifier
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5442	#selectionExtensionMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5443	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5444
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5445	"Modified: / 07-03-2012 / 14:33:40 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5446	"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	5447	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5448
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5449	autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5450	autoIndentInCodeView isNil ifTrue:[
17857 54f9e94faf82 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17842 diff changeset	5451	autoIndentInCodeView := true asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5452	autoIndentInCodeView onChangeSend:#updateModifiedChannel to:self.
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5453	].
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5454	^ autoIndentInCodeView.
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5455	!
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5456
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5457	codeCompletionOnControlKey
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5458	codeCompletionOnControlKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5459	codeCompletionOnControlKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5460	codeCompletionOnControlKey onChangeSend:#updateModifiedChannel to:self.
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5461	].
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5462	^ codeCompletionOnControlKey.
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5463	!
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5464
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5465	codeCompletionOnTabKey
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5466	codeCompletionOnTabKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5467	codeCompletionOnTabKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5468	codeCompletionOnTabKey onChangeSend:#updateModifiedChannel to:self.
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5469	].
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5470	^ codeCompletionOnTabKey.
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5471	!
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5472
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5473	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5474	enforceContentsDropForFiles isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5475	enforceContentsDropForFiles := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5476	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5477	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5478	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5479	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5480
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5481	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5482	extendedWordSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5483	extendedWordSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5484	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5485	].
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5486	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5487	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5488
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5489	immediateCodeCompletion
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5490	immediateCodeCompletion isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5491	immediateCodeCompletion := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5492	immediateCodeCompletion onChangeSend:#updateModifiedChannel to:self.
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5493	].
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5494	^ immediateCodeCompletion.
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5495	!
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5496
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5498	searchDialogIsModal isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5499	searchDialogIsModal := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5500	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5501	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5503	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5504
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5505	selectAllWhenClickingBeyondEnd
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5506	selectAllWhenClickingBeyondEnd isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5507	selectAllWhenClickingBeyondEnd := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5508	selectAllWhenClickingBeyondEnd onChangeSend:#updateModifiedChannel to:self.
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5509	].
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5510	^ selectAllWhenClickingBeyondEnd.
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5511
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5512	"Created: / 07-03-2012 / 14:34:08 / cg"
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5513	!
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5514
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5515	selectionExtensionMode
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5516	selectionExtensionMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5517	selectionExtensionMode := #traditional asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5518	selectionExtensionMode onChangeSend:#updateModifiedChannel to:self.
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5519	].
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5520	^ selectionExtensionMode.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5521
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5522	"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	5523	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5524
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5525	selectionExtensionModeEnabled
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5526	"/ 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	5527	"/ Once integrated, this method whould always return true.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5528
14892 67b7cbb80a2f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14833 diff changeset	5529	^ true. "/ EditTextView methodDictionary includesKey: #extendSelectionToX:y:setPrimarySelection:
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5530
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5531	"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	5532	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5533
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5534	showAcceptCancelBarInBrowser
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5535	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5536	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5537	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5538	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5539	^ showAcceptCancelBarInBrowser.
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5540	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5541
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5542	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5543	st80DoubleClickSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5544	st80DoubleClickSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5545	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5546	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5547	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5548	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5549
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	5550	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5551	st80EditingMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5552	st80EditingMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5553	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5555	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5556	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559	startTextDragWithControl isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5560	startTextDragWithControl := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5561	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5562	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5563	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5564	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5566	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5567	tabsIs4 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5568	tabsIs4 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5569	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5571	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5572	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5573
12004 1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5574	useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5575	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5576	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5577	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
12004 1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5578
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5579	].
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5580	^ useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5581
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5582	"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	5583	!
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5584
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5585	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5586	whitespaceWordSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5587	whitespaceWordSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5588	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5589	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5590	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5591	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5592
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5593	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5594
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5595	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5596	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5597	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5598
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5599	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5601	hasUnsavedChanges
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5602	self enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5603	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	5604	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5605	ListView userDefaultTabPositions ~= (self tabsIs4 value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5606	ifTrue:[ListView tab4Positions]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5607	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5608	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5609
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5610	^ super hasUnsavedChanges
10900 b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5611
b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5612	"Modified: / 25-11-2011 / 15:23:02 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5613	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5614
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5615	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5616
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5617	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5618
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5619	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5620	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5621
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5622	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5623
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5624	^ #('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	5625	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5626
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5627	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'help specs'!
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5628
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5629	helpSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5630	"This resource specification was automatically generated
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5631	by the UIHelpTool of ST/X."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5632
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5633	"Do not manually edit this!! If it is corrupted,
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5634	the UIHelpTool may not be able to read the specification."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5635
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5636	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5637	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5638	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5639
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5640	<resource: #help>
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5641
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5642	^ super helpSpec addPairsFrom:#(
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5643
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5644	#catchMethodRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5645	'Warn if an existing method from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5646
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5647	#catchClassRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5648	'Warn if an existing class from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5649
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5650	#historyLineInMethods
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5651	'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	5652
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5653	#historyLineInClasses
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5654	'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	5655
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5656	#userNameInHistoryLine
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5657	'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	5658
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5659	#fileInSourceMode
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5660	'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	5661
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5662	#loadBinaryObjectsWhenAutoloading
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5663	'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	5664	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5665	! !
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5666
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5667	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5668
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5669	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5670	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5671
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5672	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5673
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5674	"Modified: / 17-09-2007 / 11:35:08 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5675	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5676
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5677	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5678	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5679	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5680
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5681	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5682	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5683
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5684	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5685	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5686	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5687	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5688	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5689
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5690	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5691
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5692	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5693	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon1'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5694	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5695	@@@@@@@@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	5696	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	5697	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5698
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5699	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5700	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5701	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5702
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5703	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5704	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5705
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	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5708	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5709	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5710	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5711
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5712	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5713
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5714	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5715	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon3'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5716	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5717	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	5718	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	5719	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	5720	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	5721	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	5722	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	5723	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	5724	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5725
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5726	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5727
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5728	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5729	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5730	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5731
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5732	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5733	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5734
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5735	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5736	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5737	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5738	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5739	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5740
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5741	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5742
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5743	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5744	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5745	name: windowSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5746	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5747	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5748	label: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5749	name: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5750	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5751	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5752	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5753	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5754	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5755	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5756	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5757	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5758	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	5759	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5760	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5761	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5762	verticalSpace: 3
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5763	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5764	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5765	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5766	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5767	label: 'Catch Method Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5768	name: 'CatchMethodRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5769	activeHelpKey: catchMethodRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5770	model: catchMethodRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5771	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5772	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5773	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5774	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5775	label: 'Catch Class Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5776	name: 'CatchClassRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5777	activeHelpKey: catchClassRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5778	model: catchClassRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5779	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5780	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5781	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5782	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5783	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5784	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5785	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5786	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5787	label: 'Keep History Line in Methods'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5788	name: 'KeepHistoryLineinMethods'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5789	activeHelpKey: historyLineInMethods
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5790	model: historyLines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5791	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5792	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5793	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5794	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5795	label: 'Keep Full Class History'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5796	name: 'KeepFullClassHistory'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5797	activeHelpKey: historyLineInClasses
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5798	enableChannel: hasHistoryManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5799	model: fullHistoryUpdate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5800	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5801	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5802	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5803	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5804	name: 'Box2'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5805	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5806	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5807	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5808	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5809	label: 'Username in History:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5810	name: 'Label1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5811	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	5812	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5813	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5814	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5815	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5816	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5817	name: 'EntryField1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5818	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	5819	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5820	model: userNameInHistoryHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5821	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5822	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5823	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5824	acceptOnLostFocus: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5825	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5826	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5827	(LabelSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5828	label: '(empty for login-name)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5829	name: 'Label2'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5830	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	5831	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5832	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5833	adjust: left
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5834	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5835	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5836
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5837	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5838	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5839	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5840	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5841	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5842	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5843	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5844	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5845	name: 'Box1'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5846	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5847	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5848	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5849	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5850	label: 'FileIn Source Mode:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5851	name: 'FileInSourceModeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5852	layout: (AlignmentOrigin 282 0 15 0 1 0.5)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5853	activeHelpKey: fileInSourceMode
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5854	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5855	adjust: right
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5856	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5857	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5858	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5859	name: 'KeepSourceSelection'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5860	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	5861	activeHelpKey: fileInSourceMode
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5862	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5863	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5864	model: keepSourceSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5865	menu: keepSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5866	useIndex: true
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5867	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5868	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5869
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5870	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5871	extent: (Point 600 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5872	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5873	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5874	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5875	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5876	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5877	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5878	label: 'If Present, Load Binary Objects when Autoloading'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5879	name: 'LoadBinaryObjectsWhenAutoloading'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5880	activeHelpKey: loadBinaryObjectsWhenAutoloading
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5881	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5882	model: loadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5883	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5884	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5885	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5886	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5887
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5888	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5889	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5890	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5891
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5892	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5893	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5894	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5895
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5896	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5897
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5898	basicReadSettings
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5899	self keepSourceSelection
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5900	value:(self class keepSourceOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5901	indexOf:ClassCategoryReader sourceMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5902	ifAbsent:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5903	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5904	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5905
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5906	self canLoadBinaries value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5907	self loadBinaries value:Smalltalk loadBinaries
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5908	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5909	self loadBinaries value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5910	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5911
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5912	self hasHistoryManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5913	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5914	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5915	self fullHistoryUpdate value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5916	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5917	self historyLines value:self hasHistoryManager.
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5918	self userNameInHistoryHolder value:(UserPreferences current historyManagerSignature).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5919
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5920	"Modified: / 04-08-2010 / 18:34:15 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5921	"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	5922	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5923
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5924	basicSaveSettings
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5925	\|nm\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5926
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5927	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5928	Class catchClassRedefinitions:(self catchClassRedefs value).
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5929	Class catchMethodRedefinitions:(self catchMethodRedefs value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5930	HistoryManager notNil ifTrue:[
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5931	HistoryManager fullHistoryUpdate:(self fullHistoryUpdate value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5932	self historyLines value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5933	HistoryManager activate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5934	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5935	HistoryManager deactivate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5936	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5937	UserPreferences current historyManagerEnabled:(self historyLines value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5938	nm := (self userNameInHistoryHolder value ? '') withoutSeparators asNilIfEmpty.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5939	UserPreferences current historyManagerSignature:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5940	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5941	Smalltalk loadBinaries:(self loadBinaries value).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5942
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5943	"Modified: / 04-08-2010 / 18:33:20 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5944	"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	5945	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5946
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5947	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5948
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5949	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5950
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5951	canLoadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5952	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5953	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5954	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5955	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5956
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5957	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5958
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5959	catchClassRedefs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5960	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5961	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5962	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5963	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5964	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5965
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5966	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5967
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5968	catchMethodRedefs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5969	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5970	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5971	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5972	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5973	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5974
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5975	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5978	self hasHistoryManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5979	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5980	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5981	fullHistoryUpdate := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5982	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5983	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
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	^ fullHistoryUpdate.
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	hasHistoryManager
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	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5991	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5992
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5993	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5994
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5995	historyLines isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5996	historyLines := self hasHistoryManager asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5997	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 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	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6000	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6001
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6002	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6003
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6004	keepSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6005	keepSource := (resources array:(self class keepSourceStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6006	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6007	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6008	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6009
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6010	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6011
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6012	keepSourceSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6013	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6014	keepSourceSelection 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	^ keepSourceSelection.
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	loadBinaries
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	loadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6022	self canLoadBinaries value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6023	loadBinaries:= Smalltalk loadBinaries asValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6024	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6025	loadBinaries:= false asValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6026	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6027	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6028	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6029	^ loadBinaries.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6030
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6031	"Modified: / 04-08-2010 / 18:34:56 / cg"
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6032	!
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6033
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6034	userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6035
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6036	userNameInHistoryHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6037	userNameInHistoryHolder := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6038	userNameInHistoryHolder onChangeSend:#updateModifiedChannel to:self.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6039	].
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6040	^ userNameInHistoryHolder.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6041
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6042	"Modified: / 04-08-2010 / 18:37:53 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6043	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6044
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6045	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6046
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6047	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6048	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6049	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6050
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6051	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6052
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6053	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6054	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6055	((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	6056	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6057	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6058	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6059	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6060	(UserPreferences current historyManagerSignature ~= self userNameInHistoryHolder value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6061	^ false.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6062
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6063	"Modified: / 04-08-2010 / 18:31:55 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6064	"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	6065	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6066
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6067	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'help specs'!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6068
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6069	helpSpec
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6070	"This resource specification was automatically generated
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6071	by the UIHelpTool of ST/X."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6072
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6073	"Do not manually edit this!! If it is corrupted,
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6074	the UIHelpTool may not be able to read the specification."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6075
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6076	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6077	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6078	"
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6079
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6080	<resource: #help>
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6081
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6082	^ super helpSpec addPairsFrom:#(
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6083
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6084	#createFCGIServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6085	'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	6086
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6087	#createServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6088	'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	6089
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6090	#createServerFromSettingsFile
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6091	'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	6092
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6093	#loadWebServerPackage
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6094	'Load the missing webserver class packages'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6095
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6096	#removeAllServers
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6097	'Stop and remove all defined servers'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6098
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6099	#serverPortNumber
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6100	'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	6101
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6102	)
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
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6105	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6106
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6107	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6108	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6109	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6110
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6111	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6112	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6113
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6114	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6115	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6116	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6117	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6118	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6119
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6120	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6121
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6122	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6123	constantNamed:'AbstractSettingsApplication::HTTPStartServerSettingsApplication defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6124	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6125	@@@@@@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	6126	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	6127	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	6128	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	6129	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	6130	JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6131	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	6132	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	6133	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6134
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6135	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6136
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6137	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6138	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6139	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6140
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6141	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6142	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6143
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6144	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6145	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6146	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6147	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6148	"
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	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6151
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6152	^
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6153	#(FullSpec
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6154	name: windowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6155	window:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6156	(WindowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6157	label: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6158	name: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6159	min: (Point 10 10)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6160	bounds: (Rectangle 0 0 539 630)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6161	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6162	component:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6163	(SpecCollection
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6164	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6165	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6166	name: 'VerticalPanel1'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6167	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	6168	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6169	verticalLayout: top
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6170	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6171	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6172	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6173	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6174	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6175	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6176	name: 'VerticalPanel4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6177	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6178	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6179	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6180	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6181	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6182	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6183	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6184	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6185	name: 'InfoMessageBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6186	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6187	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6188	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6189	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6190	label: 'Label'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6191	name: 'Label2'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6192	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	6193	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6194	labelChannel: informationLabel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6195	resizeForLabel: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6196	adjust: left
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6197	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6198	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6199	label: 'Load Missing WebServer Packages'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6200	name: 'Button8'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6201	layout: (AlignmentOrigin 0 0.5 0 1 0.5 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6202	activeHelpKey: loadWebServerPackage
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6203	visibilityChannel: hasWebServerClassesNotLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6204	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6205	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6206	model: loadWebServerPackages
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6207	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6208	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6209
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6210	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6211	extent: (Point 539 200)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6212	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6213	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6214	name: 'Separator'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6215	extent: (Point 539 20)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6216	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6217	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6218	name: 'ActionButtonBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6219	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6220	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6221	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6222	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6223	label: 'Port:'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6224	name: 'Label1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6225	layout: (LayoutFrame 5 0 21 0 57 0 49 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6226	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6227	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6228	adjust: right
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6229	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6230	(InputFieldSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6231	name: 'EntryField1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6232	layout: (LayoutFrame 57 0 20 0 128 0 48 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6233	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6234	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6235	model: portNumberChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6236	type: number
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6237	immediateAccept: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6238	acceptOnReturn: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6239	acceptOnTab: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6240	acceptOnLostFocus: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6241	acceptOnPointerLeave: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6242	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6243	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6244	name: 'VerticalPanel5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6245	layout: (LayoutFrame 136 0 14 0 -12 1 0 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6246	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6247	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6248	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6249	verticalSpace: 3
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	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6254	label: 'Create new HTTP Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6255	name: 'Button4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6256	activeHelpKey: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6257	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6258	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6259	model: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6260	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6261	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6262	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6263	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6264	label: 'Create new FastCGI Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6265	name: 'Button7'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6266	activeHelpKey: createFCGIServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6267	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6268	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6269	model: createFcgiServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6270	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6271	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6272	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6273	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6274	label: 'Create Server from Settings File...'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6275	name: 'Button6'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6276	activeHelpKey: createServerFromSettingsFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6277	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6278	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6279	model: createServerFromFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6280	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6281	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6282	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6283	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6284	label: 'Remove all Servers'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6285	name: 'Button5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6286	activeHelpKey: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6287	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6288	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6289	model: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6290	enableChannel: hasCreatedServerChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6291	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6292	)
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
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6295	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6296	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6297	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6298
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6299	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6300	extent: (Point 539 160)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6301	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6302	)
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	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6305	extent: (Point 539 620)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6306	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6307	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6308
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6309	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6310	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6311	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6312
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6313	)
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6314	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6315	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6316
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6317	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6318
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6319	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6320	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6321	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6322
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6323	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6324	CreatedServers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6325	CreatedServers := Set new.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6326	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6327	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6328	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6329
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6330	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6331	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6332	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6333
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6334	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	6335	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6336	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6337
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6338	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6339
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6340	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6341	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6342
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6343	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6344	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6345	self serverClass runningServers
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6346	removeDependent:self;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6347	addDependent:self.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6348	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6349	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6350	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6351
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6352	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6353	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6354
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6355	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6356	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6357
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6358	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6359	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6360
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6361	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6362	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6363
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6364	FCGIServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6365	self warn:'The FCGIServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6366	^ self.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6367	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6368	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6369
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6370	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6371	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6372
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6373	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6374	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6375
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6376	HTTPServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6377	self warn:'The HTTPServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6378	^ self.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6379	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6380	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6381
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6382	"Modified: / 09-04-2011 / 11:15:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6383	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6384
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6385	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6386	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6387
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6388	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6389
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6390	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6391	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6392	" already have an Item for this application "
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6393	^ self
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6394	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6395	HTTPServerSettingsAppl isNil ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6396	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6397	HTTPServerSettingsAppl isNil ifTrue:[
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6398	self warn:'Missing settings application: HTTPServerSettingsAppl'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6399	^ self.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6400	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6401	].
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6402
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6403	settingsApp := HTTPServerSettingsAppl basicNew.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6404	settingsApp settingsDialog:settingsDialog.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6405	settingsApp httpServerInstance:aServerInstance.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6406	settingsApp defaultSettingsApplication:false.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6407	settingsApp basicInitialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6408	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6409	newItem := settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6410	newItem application:settingsApp.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6411	self createdServerChanged.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6412	settingsDialog expandItemForApplication:self.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6413	settingsApp readSettings.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6414	settingsApp initialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6415
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6416	"Modified: / 09-04-2011 / 11:17:44 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6417	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6418
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6419	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6420
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6421	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6422
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6423	serverClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6424	self warn:'The server class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6425	^ self.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6426	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6427
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6428	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6429	port := self portNumberChannel value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6430	runningServers := serverClass runningServers.
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6431
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6432	runningServers do:[:aServer \|
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6433	aServer port = port asInteger ifTrue:[
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6434	Dialog warn:'There is already a server for port ', port asString.
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6435	^ self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6436	]
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6437	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6438	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6439
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6440	(port = serverClass defaultPort) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6441	newServer := serverClass newServerWithDefaultServiceListOn:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6442	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6443	newServer := serverClass newServerOnPort:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6444	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6445	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6446	self createServerApplicationFor:newServer.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6447	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6448	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6449
5049 3df132763949 instable state penk parents: 5044 diff changeset	6450	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6451	\|serverClass newServer fileName runningServers newServerPort answer\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6452
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6453	serverClass := self serverClass.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6454	fileName := Dialog requestFileName:'Select a Server Settings File'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6455	default:(serverClass settingsFilename)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6456	pattern:'*.xml'.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6457
5049 3df132763949 instable state penk parents: 5044 diff changeset	6458	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6459	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6460	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6461	newServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6462	newServerPort := newServer port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6463	runningServers := serverClass runningServers.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6464	runningServers notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6465	[self hasServerForPort:newServerPort] whileTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6466	answer := Dialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6467	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	6468	initialAnswer:self portNumberChannel value printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6469	answer isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6470	^ self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6471	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6472	newServerPort := Number readFromString:answer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6473	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6474	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6475	newServer port:newServerPort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6476	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6477	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6478	self createServerApplicationFor:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6479	].
5049 3df132763949 instable state penk parents: 5044 diff changeset	6480	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6481
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6482	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	6483	!
3df132763949 instable state penk parents: 5044 diff changeset	6484
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6485	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6486	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6487
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6488	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6489
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6490	(serverClass notNil and:[ serverClass isLoaded ]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6491	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6492	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6493
12570 c9f359cab740 class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 12478 diff changeset	6494	serverToStart := serverClass runningServers asNewSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6495	serverToStart addAll:self class createdServers.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6496	serverToStart isEmpty ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6497	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6498	].
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6499	serverToStart := serverToStart select:[:s \| s port notNil].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6500	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6501	serverToStart do:[:eachServerInstance \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6502	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6503	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6504
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6505	"Modified: / 26-08-2012 / 10:25:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6506	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6507
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6508	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6509	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6510
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6511	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6512	^ serverClass notNil
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6513	and:[ serverClass runningServers
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6514	contains:[:eachServer\| eachServer port = newServerPort]].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6515
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6516	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6517	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	6518
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6519	loadWebServerPackages
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6520	Smalltalk loadPackage:'stx:goodies/webServer'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6521	Smalltalk loadPackage:'stx:goodies/webServer/htmlTree'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6522	Smalltalk loadPackage:'stx:goodies/webServer/comanche'.
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6523	Smalltalk loadPackage:'stx:goodies/webServer/comanche/stt'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6524	Smalltalk loadPackage:'stx:goodies/webServer/comanche/swiki'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6525	Smalltalk loadPackage:'stx:goodies/webServer/comanche/seaside2_5b4/squeakCompatibility'.
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6526	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6527	self hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6528	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6529
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6530	removeAllServerSubApplications
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6531	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6532
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6533	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6534	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6535
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6536	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6537	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6538
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6539	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6540	serverClass isLoaded ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6541	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6542	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6543	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6544	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6545	self createdServerChanged.
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:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6548	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6549
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6550	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6551	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6552
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6553	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6554
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6555	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6556	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6557	instances := serverClass runningServers asNewSet.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6558	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6559	collect:[:aApp\| aApp httpServerInstance]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6560	instances := instances select:[:i \| i port notNil].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6561	highestUsedPortNr := instances
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6562	inject:(serverClass defaultPort - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6563	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6564
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6565	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6566	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6567	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6568	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6569	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6570
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6571	"Modified: / 26-08-2012 / 10:26:20 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6572	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6573
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6574	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6575
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6576	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6577	hasCreatedServerChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6578	hasCreatedServerChannel := true asValue.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6579	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6580	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6581	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6582
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6583	hasWebServerClassesLoaded
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6584	^ self hasHTTPServerClass and:[self hasFCGIServerClass].
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6585	!
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6586
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6587	hasWebServerClassesLoadedHolder
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6588	^ BlockValue forLogicalNot:(self hasWebServerClassesNotLoadedHolder)
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6589	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6590
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6591	hasWebServerClassesNotLoadedHolder
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6592	hasWebServerClassesNotLoadedHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6593	hasWebServerClassesNotLoadedHolder := true asValue.
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6594	hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6595	].
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6596	^ hasWebServerClassesNotLoadedHolder.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6597	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6598
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6599	informationLabel
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6600	\|info\|
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6601
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6602	info := resources
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6603	string:'HTTPSTARTINFO'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6604	default:
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6605	'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	6606	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6607
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6608	Once created, select the individual server in the left tree,
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6609	configure its services, and finally start it up.'.
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6610
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6611	self hasHTTPServerClass ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6612	info := info ,
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6613	'\\' withCRs,
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6614	(resources string:'ATTENTION: Disabled because HTTPServer class is missing.') allBold
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6615	].
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6616	^ info
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6617
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6618	"Modified: / 14-05-2012 / 12:35:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6619	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6620
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6621	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6622
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6623	portNumberChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6624	portNumberChannel := ValueHolder new.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6625	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6626	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6627	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6628
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6629	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6630
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6631	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6632
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6633	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6634	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6635	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6636
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6637	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6638	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6639	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6640	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6641
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6642	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6643	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6644
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6645	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6646	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6647	self runningServersChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6648	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6649	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6650	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6651
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6652	"Modified: / 25-01-2007 / 16:38:52 / cg"
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
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6655	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6656
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6657	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6658	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6659	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6660
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6661	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6662
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6663	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6664	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6665
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6666	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6667	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6668	serverClass runningServers removeDependent:self.
14066 0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6669	].
0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6670	super release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6671
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6672	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6673	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6674
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6675	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6676
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6677	hasCreatedServer
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6678	"/ settingsDialog isNil ifTrue:[^ false].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6679	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6680	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6681	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6682
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6683	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6684	^ FCGIServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6685
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6686	"Created: / 25-01-2007 / 17:50:14 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6687	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6688
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6689	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6690	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6691
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6692	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6693	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6694
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6695	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6696
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6697	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6698	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6699
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6700	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6701	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6702	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6703	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6704	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6705
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6706	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6707	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6708	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6709
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6710	serverClass
16718 cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6711	"answer the default class for instantiating servers.
cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6712	Note that we may instantiate FCGIServer as well"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6713
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6714	^ HTTPServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6715	!
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	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6718	^ 'there is no HTTPServer class in the system'
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	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6721	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6722
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6723	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'help specs'!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6724
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6725	helpSpec
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6726	"This resource specification was automatically generated
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6727	by the UIHelpTool of ST/X."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6728
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6729	"Do not manually edit this!! If it is corrupted,
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6730	the UIHelpTool may not be able to read the specification."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6731
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6732	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6733	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6734	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6735
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6736	<resource: #help>
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6737
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6738	^ super helpSpec addPairsFrom:#(
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6739
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6740	#rawKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6741	'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	6742
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6743	#functionKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6744	'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	6745
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6746	#'changeMap'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6747	'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	6748
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6749	#'applyChange'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6750	'Adds the current key-function combination to the keyboard map'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6751
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6752	#saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6753	'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	6754
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6755	)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6756	! !
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6757
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6758	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6759
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6760	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6761	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6762
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6763	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6764	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6765
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6766	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6767
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6768	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6769	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6770	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6772	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6773	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6774
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6775	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6776	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6777	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6778	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6779	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6781	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6782
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6783	^
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6784	#(FullSpec
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6785	name: windowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6786	window:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6787	(WindowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6788	label: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6789	name: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6790	min: (Point 10 10)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6791	bounds: (Rectangle 0 0 482 654)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6792	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6793	component:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6794	(SpecCollection
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6795	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6796	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6797	name: 'Text'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6798	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	6799	enableChannel: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6800	model: labelTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6801	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6802	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6803	miniScrollerHorizontal: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6804	miniScrollerVertical: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6805	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6806	hasKeyboardFocusInitially: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6807	postBuildCallback: postBuildHelpLabel:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6808	viewClassName: 'TextView'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6809	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6810	(VariableVerticalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6811	name: 'VariableVerticalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6812	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	6813	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6814	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6815	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6816	(VariableHorizontalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6817	name: 'VariableHorizontalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6818	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6819	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6820	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6821	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6822	name: 'Box2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6823	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6824	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6825	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6826	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6827	label: 'Key'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6828	name: 'Label1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6829	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6830	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6831	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6832	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6833	name: 'RawKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6834	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6835	activeHelpKey: rawKeyList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6836	model: selectedRawKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6837	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6838	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6839	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6840	sequenceList: rawKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6841	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6842	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6843	name: 'Box4'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6844	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6845	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6846	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6847	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6848	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6849	label: 'Modify'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6850	name: 'CheckBox1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6851	layout: (LayoutFrame 0 0 7 0 136 0 29 0)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6852	activeHelpKey: changeMap
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6853	model: changeMapHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6854	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6855	)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6856	(InputFieldSpec
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6857	name: 'EntryField1'
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6858	layout: (LayoutFrame 136 0 7 0 0 1 29 0)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6859	visibilityChannel: changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6860	model: currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6861	acceptOnReturn: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6862	acceptOnTab: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6863	acceptOnPointerLeave: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6864	)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6865	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6866
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6867	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6868	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6869	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6870
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6871	)
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: 'Box3'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6875	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6876	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6877	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6878	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6879	label: 'Function'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6880	name: 'Label2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6881	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6882	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6883	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6884	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6885	name: 'FunctionKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6886	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6887	activeHelpKey: functionList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6888	model: selectedFunctionKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6889	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6890	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6891	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6892	sequenceList: functionKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6893	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6894	(HorizontalPanelViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6895	name: 'HorizontalPanel1'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6896	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6897	horizontalLayout: fitSpace
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6898	verticalLayout: center
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6899	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6900	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6901	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6902	(ActionButtonSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6903	label: 'Apply'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6904	name: 'Button1'
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6905	activeHelpKey: applyChange
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6906	visibilityChannel: changeMapHolder
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6907	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6908	model: applyMapChange
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6909	extent: (Point 125 22)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6910	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6911	(ActionButtonSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6912	label: 'Save As...'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6913	name: 'Button2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6914	activeHelpKey: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6915	visibilityChannel: changeMapHolder
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6916	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6917	model: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6918	extent: (Point 125 22)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6919	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6920	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6921
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6922	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6923	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6924	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6925
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6926	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6927	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6928	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6929
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6930	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6931	handles: (Any 0.5 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6932	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6933	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6934	name: 'Box1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6935	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6936	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6937	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6938	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6939	label: 'Macro text (if any):'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6940	name: 'MacroTextLabel'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6941	layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6942	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6943	adjust: left
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6944	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6945	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6946	name: 'MacroText'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6947	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	6948	activeHelpKey: macroText
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6949	model: macroTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6950	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6951	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6952	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6953	hasKeyboardFocusInitially: false
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	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6965
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6966	)
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6967	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6968	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6970	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6971
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6972	applyMapChange
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6973	\|rawKey function\|
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6974
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6975	rawKey := self currentKeyHolder value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6976	function := self selectedFunctionKey value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6977
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6978	function = (resources string:'* unassigned *') ifTrue:[
16644 1c87adf56e82 #BUGFIX by mawalch mawalch parents: 16629 diff changeset	6979	mappings removeKey:rawKey
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6980	] ifFalse:[
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6981	mappings at:rawKey put:function.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6982	].
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6983	self updateModifiedChannel.
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6984	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6985
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6986	basicReadSettings
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	6987	\|screenMap l\|
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	6988
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	6989	screenMap := Screen current keyboardMap.
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	6990	mappings := screenMap species new declareAllFrom: screenMap.
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6991
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6992	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	6993	l := (mappings values asSet collect:[:key \| key asString] as:OrderedCollection) sort.
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6994	l addFirst:(resources string:'* unassigned *').
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6995	self functionKeyList contents:l.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6996
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6997	self changeMapHolder value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6998	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6999
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7000	basicSaveSettings
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7001	self saveMapAs:(Filename applicationDataDirectory construct:'private_keyboard.rc')
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7002	!
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7003
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7004	saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7005	"invoked via save as button"
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7006
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7007	\|fn\|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7008
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7009	fn := Dialog
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7010	requestFileName:'Save private keyboard settings in:'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7011	default:'private_keyboard.rc'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7012	fromDirectory:(Filename applicationDataDirectory).
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7013	fn isEmptyOrNil ifTrue:[ ^ self ].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7014	self saveMapAs:fn asFilename.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7015	!
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7016
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7017	saveMapAs:aFilename
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7018	aFilename writingFileDo:[:s \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7019	s nextPutLine:'\|map\|'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7020	s nextPutLine:'map := Screen current keyboardMap.'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7021	mappings keysAndValuesDo:[:eachKey :eachFunction \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7022	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	7023	].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7024	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7025	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7027	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7028
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7029	changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7030	changeMapHolder isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7031	changeMapHolder := false asValue.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7032	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7033	^ changeMapHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7034	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7035
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7036	currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7037	currentKeyHolder isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7038	currentKeyHolder := nil asValue.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7039	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7040	^ currentKeyHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7041	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7042
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7043	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7044	functionKeyList isNil ifTrue:[
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7045	functionKeyList := List new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7046	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7047	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7048	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7049
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7050	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7051	labelTextHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7052	labelTextHolder := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7053	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7054	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7055	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7056
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7057	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7058	macroTextHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7059	macroTextHolder := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7060	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7061	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7062	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7063
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7064	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7065
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7066	rawKeyList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7067	rawKeyList := List new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7068	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7069	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7070	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7071
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7072	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7073
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7074	selectedFunctionKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7075	selectedFunctionKey := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7076	selectedFunctionKey addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7077	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7078	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7079	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7080
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7081	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7082
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7083	selectedRawKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7084	selectedRawKey := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7085	selectedRawKey addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7086	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7087	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7088	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7090	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7091
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7092	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7093	\|raw\|
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7094
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7095	raw := self selectedRawKey value.
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7096	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	7097
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7098	"Modified: / 11-11-2010 / 06:50:04 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7099	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7101	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7103	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7105	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7106	(f startsWith:'Cmd') ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7107	f := f copyFrom:4
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7108	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7109	macro := currentUserPrefs functionKeySequences
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7110	at:(f asSymbol) ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7111	macro notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7112	macro := macro asStringCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7113	indent := macro
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7114	inject:99999 into:[:min :element \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7115	\|stripped\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7116
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7117	stripped := element withoutLeadingSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7118	stripped isEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7119	min
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7120	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7121	min min:(element size - stripped size)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7122	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7123	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7124	indent ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7125	macro := macro collect:[:line \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7126	line size > indent ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7127	line copyFrom:indent+1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7128	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7129	line
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7130	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7131	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7132	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7133	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7134	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7135	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7136
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7137	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7138	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7139
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7140	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7141	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7142	raw isNil ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7143	raw := mappings keyAtValue:f first.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7144	raw isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7145	raw := mappings keyAtValue:f asSymbol.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7146	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7147	].
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7148	self selectedRawKey value:raw withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7149
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7150	"Modified: / 11-11-2010 / 06:49:56 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7151	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7152
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7153	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7154	changedObject == self selectedFunctionKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7155	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7156	self changeRawKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7157	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7158	self changeMacroText.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7159	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7160	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7161	changedObject == self selectedRawKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7162	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7163	self changeFunctionKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7164	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7165	self currentKeyHolder value:changedObject value.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7166	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7167	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7168	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7169	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7170
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7171	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7172
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7173	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7174	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7175	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7176
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7177	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7178
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7179	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7180
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7181	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7182
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7183	super initialize.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	7184
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7185	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	7186
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7187	"Modified: / 08-02-2017 / 00:30:32 / cg"
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7188	!
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7189
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7190	postBuildHelpLabel:aWidget
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7191	aWidget level:0.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7192	aWidget scrolledView backgroundColor:self window viewBackground.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7193	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7194	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7196	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7197
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7198	hasUnsavedChanges
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7199	^ mappings ~= Screen current keyboardMap.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7200	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7201
14377 2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7202	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'font specs'!
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7203
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7204	bigLabelFont
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7205	<resource: #fontSpec>
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7206
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7207	^ Label defaultFont asBold
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7208	! !
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7209
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7210	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'help specs'!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7211
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7212	helpSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7213	"This resource specification was automatically generated
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7214	by the UIHelpTool of ST/X."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7215
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7216	"Do not manually edit this!! If it is corrupted,
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7217	the UIHelpTool may not be able to read the specification."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7218
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7219	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7220	UIHelpTool openOnClass:HTTPServerSettingsAppl
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7221	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7222
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7223	<resource: #help>
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7224
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7225	^ super helpSpec addPairsFrom:#(
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7226
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7227	#useSystemLanguage
16524 ecacacdca483 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	7228	'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	7229
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7230	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7231	! !
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7232
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7233	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7235	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7236	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7237
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7238	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7239	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7240
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7241	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7242
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7243	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7244	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7245	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7246
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7247	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7248	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7249
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7250	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7251	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7252	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7253	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7254	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7255
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7256	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7257
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7258	^
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7259	#(FullSpec
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7260	name: windowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7261	window:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7262	(WindowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7263	label: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7264	name: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7265	min: (Point 10 10)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7266	bounds: (Rectangle 0 0 571 878)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7267	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7268	component:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7269	(SpecCollection
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7270	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7271	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7272	label: 'Current Language:'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7273	name: 'Label1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7274	layout: (LayoutFrame 0 0 0 0 -233 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7275	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7276	labelChannel: currentLanguageLabel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7277	adjust: right
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7278	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7279	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7280	label: 'Label'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7281	name: 'CurrentLang'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7282	layout: (LayoutFrame -233 1 0 0 0 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7283	style: bigLabelFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7284	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7285	labelChannel: currentFlagAndLanguageChannel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7286	adjust: left
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7287	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7288	(TextEditorSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7289	name: 'TextEditor1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7290	layout: (LayoutFrame 0 0 32 0 0 1.0 240 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7291	model: noticeLabelHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7292	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7293	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7294	miniScrollerHorizontal: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7295	autoHideScrollBars: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7296	isReadOnly: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7297	hasKeyboardFocusInitially: false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7298	postBuildCallback: postBuildHelpLabel:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7299	viewClassName: 'TextView'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7300	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7301	(InputFieldSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7302	name: 'EntryField1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7303	layout: (LayoutFrame 2 0.0 240 0 -2 1.0 270 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7304	model: languageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7305	acceptOnReturn: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7306	acceptOnTab: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7307	acceptOnLostFocus: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7308	acceptOnPointerLeave: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7309	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7310	(CheckBoxSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7311	label: 'Use OS Language on Startup'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7312	name: 'CheckBox1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7313	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	7314	activeHelpKey: useSystemLanguage
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7315	model: useSystemLanguageHolder
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7316	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7317	)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7318	(SequenceViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7319	name: 'List1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7320	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	7321	model: languageIndexHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7322	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7323	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7324	doubleClickSelector: doubleClick:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7325	useIndex: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7326	sequenceList: languageListHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7327	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7328	(HorizontalPanelViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7329	name: 'HorizontalPanel1'
15917 8bd56a31147e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15916 diff changeset	7330	layout: (LayoutFrame 0 0 -37 1 0 1 0 1)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7331	horizontalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7332	verticalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7333	horizontalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7334	verticalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7335	component:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7336	(SpecCollection
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7337	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7338	(ActionButtonSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7339	label: 'Reread Language Resources'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7340	name: 'RereadResourcesButton'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7341	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7342	resizeForLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7343	model: rereadResourceFiles
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7344	useDefaultExtent: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7345	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7346	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7347
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7348	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7349	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7350	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7351
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7352	)
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7353	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7354	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7356	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7357
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7358	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7359	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7360
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7361	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7362	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7364	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7365
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7366	basicReadSettings
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7367	self useSystemLanguageHolder value:(currentUserPrefs useSystemLanguage).
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7368	self languageIndexHolder value:self currentLanguageIndex.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7369	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7370	self currentFlagAndLanguageChannel value:self currentLanguage.
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7371
314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7372	"Modified: / 24-08-2010 / 18:52:48 / sr"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7373	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7374
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7375	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7376	\|fontPref fontPrefs language oldLanguage languageString territory enc
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7377	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7378
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7379	currentUserPrefs useSystemLanguage:(self useSystemLanguageHolder value).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7380
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7381	self withWaitCursorDo:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7382	languageString := translatedLanguages at:(self languageIndexHolder value).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7383	language := self languageHolder value asString string.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7384	(language includes:$-) ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7385	l := language asCollectionOfSubstringsSeparatedBy:$-.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7386	language := l at:1.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7387	territory := l at:2.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7388	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7389	territory isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7390	territory := language string copyTo:2
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7391	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7392
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7393	"/ check if the new language needs a differently encoded font;
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7394	"/ ask user to switch font and allow cancelation.
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7395	"/ Otherwise, you are left with unreadable menu & button items ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7396
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7397	oldLanguage := UserPreferences current language.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7398	Smalltalk language:language asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7399	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7400
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7401	"/ refetch resources ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7402	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7403	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7404	fontPrefs isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7405	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7406	fontPref isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7407	fontPrefs := #(#'iso10646-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7408	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7409	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7410	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7411	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7412
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7413	"/ 'normalize' names of encodings
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7414	fontPrefs := fontPrefs collect:[:each \| (CharacterEncoder encoderFor:each asLowercase asSymbol ifAbsent:nil)].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7415	fontPrefs := fontPrefs select:[:each \| each notNil] thenCollect:[:each \| each nameOfEncoding].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7416	fontPrefs isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7417	fontPrefs := #(#'iso10464-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7418	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7419	fontPref := fontPrefs first.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7420
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7421	Smalltalk setLanguage:#en.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7422	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7423	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7424
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7425	switch := true.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7426	anyWrong := false.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7427	(Array
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7428	with:MenuView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7429	"/ with:ListView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7430	with:EditTextView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7431	with:Button defaultFont)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7432	do:[:fn \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7433	enc := fn encoding.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7434	enc isNil ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7435	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7436	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7437	anyWrong := true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7438	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7439	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7440	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7441	anyWrong ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7442	"/ look if there is one at all.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7443	screen := Screen current.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7444	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7445	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7446	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7447	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7448
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7449	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7450	"/ flush and try again - just in case, the font path has changed.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7451	screen flushListOfAvailableFonts.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7452	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7453	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7454	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7455	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7456	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7457	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7458	(Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7459	confirm:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7460	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	7461	with:fontPref) withCRs)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7462	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7463	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7464	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7465	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7466	answer := Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7467	confirmWithCancel:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7468	string:'Some font(s) is not %1-encoded.\\Change it ?'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7469	with:fontPref) withCRs
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7470	labels:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7471	array:#('Cancel' 'No' 'Yes'))
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7472	default:3.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7473	answer isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7474	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7475	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7476	answer ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7477	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7478	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7479	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7480	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7481	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7482
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7483	switch ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7484	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7485	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7486	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7487	"/ ResourcePack flushCachedResourcePacks - already done by language-change
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7488	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7489	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7490	switch ifTrue:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7491	(dialog := settingsDialog) notNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7492	dialog reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7493	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7494	NewLauncher current reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7495	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7496	DebugView newDebugger.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7497	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7498	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7499
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7500	"Modified: / 19-10-2006 / 22:17:44 / cg"
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7501	"Modified (comment): / 24-08-2017 / 14:57:24 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7502	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7503
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7504	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7505	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7506	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7507
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7508	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7509	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7510	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7511	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7512	self updateForChangedLanguage.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7513	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7514
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7515	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7516	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7517
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7518	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7519	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7520	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7521
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7522	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7523	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	7524	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7525	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7526	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7527	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7528	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7529	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7531	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7532
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7533	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7534	currentFlagAndLanguageChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7535	currentFlagAndLanguageChannel := self currentLanguage asValue.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7536	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7537	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7539
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7540	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7541	currentLanguageLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7542	currentLanguageLabel := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7543	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7544	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7545	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7546	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7548	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7549	languageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7550	languageHolder := self currentLanguage asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7551	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7552	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7553	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7554	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7555
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7556	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7557	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7558
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7559	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7560	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7561	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7562	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7563
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7564	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7565	languageIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7566	languageIndexHolder := (self currentLanguageIndex) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7567	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7568	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7569	^ languageIndexHolder.
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
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7572	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7573	languageListHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7574	languageListHolder := self languageList asValue.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7575	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7576	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7577	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7578
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7579	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7580	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7581	noticeLabelHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7582	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7583	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7584	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7585	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7586
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7587	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7588	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7589	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7590
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7591	setNoticeLabel
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7592	noticeLabelHolder
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7593	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7594	!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7595
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7596	useSystemLanguageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7597	useSystemLanguageHolder isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7598	useSystemLanguageHolder := true asValue.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7599	useSystemLanguageHolder onChangeSend:#updateModifiedChannel to:self.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7600	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7601	^ useSystemLanguageHolder.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7602	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7603
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7604	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7605
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7606	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7607	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7608	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7609
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7610	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7611
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7612	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7613	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7614
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7615	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7616	super initialize.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7617
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7618	"Modified: / 08-02-2017 / 00:30:07 / cg"
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	initializeLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7622	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7623	languages listOfLanguageKeys readLanguagesFile rsc\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7624
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7625	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7626	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7627	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7628	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	7629
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7630	(perLanguageResources notNil
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7631	and:[ (perLanguageResources includesKey:#en) not
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7632	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7633	ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7634	perLanguageResources := nil.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7635	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7636
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7637	perLanguageResources isNil ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7638	perLanguageResources := Dictionary new.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7639
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7640	"/ short languages.rs file present?
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7641	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7642	readLanguagesFile := rsc notNil and:[(rsc at:#languageFileExists ifAbsent:false) == true].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7643
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7644	listOfLanguageKeys do:[:eachLang \|
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7645	savedLanguage := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7646	savedLanguageTerritory := Smalltalk languageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7647	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7648	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7649	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7650
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7651	[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7652	\|rsc lang terr\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7653
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7654	lang := terr := eachLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7655	(lang includes:$_) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7656	terr := lang copyFrom:4.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7657	lang := lang copyTo:2.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7658	].
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7659	Smalltalk setLanguage:lang asSymbol territory:terr asSymbol.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7660	readLanguagesFile ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7661	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7662	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7663	rsc := ResourcePack for:(self class) cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7664	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7665	perLanguageResources at:eachLang asSymbol put:rsc.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7666	] ensure:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7667	Smalltalk setLanguage:savedLanguage territory:savedLanguageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7668	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7669	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7670	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7671	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7672	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7673	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7674
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7675	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7676
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7677	enLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7678	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7679	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7680	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7681
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7682	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7683	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7684	lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7685	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7686	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7687	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7688	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7689	item at:1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7690	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7691	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7692	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7693
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7694	nativeLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7695	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7696	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7697	\|item enLang\|
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	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7700	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7701	enLang := lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7702	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7703	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7704	enLang := item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7705	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7706	enLang := item at:1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7707	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7708	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7709	item := (perLanguageResources at:lang asSymbol ifAbsent:enResources) at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7710	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7711
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7712	languages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7713	enLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7714	collect:[:enLang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7715	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7716
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7717	item := resources at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7718	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7719
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7720	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7721	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7722	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7723	\|item coll\|
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	item := resources at:('FLAG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7726	item notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7727	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7728	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7729	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7730	(coll size > 1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7731	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7732	ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7733	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7734	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7735	item := resources string:('LANG_' , lang).
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7736	item isArray ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7737	item at:2
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7738	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7739	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7740	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7741	]
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	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7744
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7745	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7746	flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7747	collect:[:nm \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7748	\|img d fn\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7749
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7750	nm notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7751	img := Image fromFile:nm.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7752	img isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7753	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7754	(d notNil and:[ (fn := d construct:nm) exists]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7755	img := Image fromFile:fn.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7756	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7757	('LanguageSettings [info]: missing flags file: ',nm) infoPrintCR.
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	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7760	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7761	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7762	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7763	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7764
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7765
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7766	translatedLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7767	(1 to:languages size)
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7768	collect:[:idx \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7769	\|lang englishLang nativeLang s\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7770
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7771	lang := languages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7772	englishLang := enLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7773	nativeLang := nativeLanguages at:idx.
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	s := nativeLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7776	englishLang ~= nativeLang ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7777	s := s , ' / ' , englishLang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7778	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7779	(lang ~= nativeLang and:[lang ~= englishLang]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7780	s := s , ' / ' , lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7781	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7782	s
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7783	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7784
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7785	languageList := translatedLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7786	with:flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7787	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7788
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7789	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7790	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7791
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7792	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7793	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7794	aWidget scrolledView backgroundColor:self window viewBackground.
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7795	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7796	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7798	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7799
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7800	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7801	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7802	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7803
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7804	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7805	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7806	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7807
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7808	currentLanguageIndex
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7809	\| lang terr langIdx \|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7810
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7811	lang := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7812	terr := Smalltalk languageTerritory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7813
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7814	(lang ~= terr) ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7815	langIdx := listOfLanguages indexOf:(lang , '-' , terr) ifAbsent:nil.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7816	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7817	langIdx isNil ifTrue:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7818	langIdx := listOfLanguages indexOf:lang ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7819	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7820	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7821	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7822	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7823	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7824
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7825	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7826	langIdx := 1.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7827	]
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7828	]
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7829	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7830	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7831	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7832
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7833	hasUnsavedChanges
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7834	useSystemLanguageHolder value ~= currentUserPrefs useSystemLanguage ifTrue:[^ true].
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7835	^ languageIndexHolder value ~= self currentLanguageIndex
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7836
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7837	"Modified: / 17-10-2006 / 17:51:09 / cg"
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7838	"Modified: / 24-08-2010 / 18:50:11 / sr"
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7839	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7840
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7841	quickSearchStrings
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7842	"keywords to match in the quickSearch.
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7843	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	7844	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7845
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7846	^ super quickSearchStrings
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7847	addAll:#('language' 'english');
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7848	yourself
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7849	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7850
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7851	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'help specs'!
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7852
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7853	helpSpec
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7854	"This resource specification was automatically generated
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7855	by the UIHelpTool of ST/X."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7856
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7857	"Do not manually edit this!! If it is corrupted,
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7858	the UIHelpTool may not be able to read the specification."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7859
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7860	"
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7861	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7862	"
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7863
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7864	<resource: #help>
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7865
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7866	^ super helpSpec addPairsFrom:#(
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7867
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7868	#codeLimit
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7869	'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	7870
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7871	#codeTrigger
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7872	'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	7873
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7874	#compressLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7875	'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	7876
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7877	#fastMoreLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7878	'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	7879
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7880	#igcFreeAmount
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7881	'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	7882
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7883	#igcFreeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7884	'Start incremental background GC whenever freespace drops below this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7885
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7886	#igcLimit
13041 f99a2405835e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13010 diff changeset	7887	'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	7888
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7889	#maxOldSpace
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7890	'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	7891
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7892	#methodCodeSizeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7893	'Do not JIT, if an individual method''s code size exceeds this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7894
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7895	#newSpaceSize
16143 93dfa902272a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16125 diff changeset	7896	'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	7897
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7898	#oldIncr
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7899	'Increase oldSpace in chunks of this size'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7900
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7901	#stackLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7902	'Trigger a recursionInterrupt exception if more stack is used by a process'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7903
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	! !
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7906
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7907	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7908
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7909	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7910	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7911
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7912	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7913	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7914
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7915	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7916
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7917	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7918	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7919	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7920
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7921	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7922	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7923
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7924	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7925	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7926	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7927	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7928	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7929
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7930	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7931
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7932	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7933	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7934	name: windowSpec
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7935	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7936	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7937	label: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7938	name: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7939	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7940	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7941	bounds: (Rectangle 0 0 705 722)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7942	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7943	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7944	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7945	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7946	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7947	label: 'Label'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7948	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7949	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7950	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7951	labelChannel: warningLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7952	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7953	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7954	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7955	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7956	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7957	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7958	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7959	horizontalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7960	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7961	ignoreInvisibleComponents: true
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7962	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7963	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7964	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7965	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7966	label: 'Limits:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7967	name: 'Label54'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7968	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7969	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7970	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7971	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7972	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7973	name: 'StackLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7974	activeHelpKey: stackLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7975	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7976	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7977	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7978	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7979	label: 'Stack Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7980	name: 'Label38'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7981	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7982	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7983	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7984	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7985	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7986	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7987	name: 'EntryField20'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7988	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7989	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7990	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7991	model: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7992	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7993	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7994	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7995	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7996	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7997	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7998	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7999	label: '(Trigger recursionInterrupt if more stack is used by a process)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8000	name: 'Label39'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8001	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8002	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8003	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8004	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8005	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8006	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8007
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8008	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8009	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8010	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8011	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8012	name: 'NewSpaceSizeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8013	activeHelpKey: newSpaceSize
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8014	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8015	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8016	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8017	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8018	label: 'Size of NewSpace:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8019	name: 'Label44'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8020	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8021	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8022	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8023	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8024	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8025	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8026	name: 'EntryField23'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8027	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8028	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8029	model: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8030	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8031	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8032	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8033	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8034	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8035	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8036	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8037	label: '(Size of Space where new objects are created)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8038	name: 'Label45'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8039	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8040	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8041	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8042	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8043	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8044	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8045
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8046	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8047	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8048	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8049	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8050	name: 'MaximumMemoryLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8051	activeHelpKey: maxOldSpace
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8052	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8053	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8054	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8055	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8056	label: 'Maximum Memory Limit:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8057	name: 'Label46'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8058	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8059	activeHelpKey: maxOldSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8060	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8061	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8062	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8063	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8064	name: 'EntryField24'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8065	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8066	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8067	model: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8068	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8069	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8070	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8071	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8072	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8073	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8074	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8075	label: '(Never allocate more than this amount of memory)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8076	name: 'Label47'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8077	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8078	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8079	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8080	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8081	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8082	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8083
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8084	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8085	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8086	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8087	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8088	name: 'QuickAllocationLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8089	activeHelpKey: fastMoreLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8090	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8091	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8092	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8093	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8094	label: 'Quick Allocation Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8095	name: 'Label26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8096	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8097	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8098	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8099	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8100	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8101	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8102	name: 'EntryField14'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8103	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8104	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8105	model: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8106	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8107	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8108	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8109	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8110	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8111	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8112	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8113	label: '(Quickly allocate more memory (suppress GC) up to this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8114	name: 'Label27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8115	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8116	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8117	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8118	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8119	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8120	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8121
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8122	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8123	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8124	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8125	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8126	name: 'OldspaceIncrementBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8127	activeHelpKey: oldIncr
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8128	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8129	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8130	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8131	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8132	label: 'Oldspace Increment:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8133	name: 'Label34'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8134	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8135	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8136	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8137	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8138	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8139	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8140	name: 'EntryField18'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8141	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8142	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8143	model: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8144	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8145	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8146	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8147	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8148	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8149	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8150	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8151	label: '(Increase oldSpace in chunks of this size)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8152	name: 'Label35'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8153	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8154	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8155	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8156	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8157	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8158	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8159
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8160	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8161	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8162	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8163	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8164	name: 'OldSpaceCompressLimitBox'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8165	activeHelpKey: compressLimit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8166	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8167	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8168	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8169	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8170	label: 'Oldspace Compress Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8171	name: 'Label36'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8172	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8173	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8174	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8175	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8176	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8177	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8178	name: 'EntryField19'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8179	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8180	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8181	model: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8182	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8183	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8184	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8185	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8186	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8187	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8188	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8189	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	8190	name: 'Label37'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8191	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8192	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8193	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8194	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8195	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8196	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8197
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8198	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8199	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8200	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8201	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8202	name: 'CodeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8203	activeHelpKey: codeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8204	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8205	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8206	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8207	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8208	label: 'Dynamic code Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8209	name: 'Label40'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8210	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8211	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8212	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8213	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8214	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8215	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8216	name: 'EntryField21'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8217	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8218	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8219	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8220	model: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8221	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8222	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8223	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8224	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8225	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8226	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8227	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8228	label: '(Flush dynamic compiled code to stay within this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8229	name: 'Label41'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8230	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8231	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8232	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8233	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8234	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8235	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8236
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8237	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8238	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8239	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8240	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8241	name: 'MethodSizeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8242	activeHelpKey: methodCodeSizeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8243	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8244	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8245	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8246	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8247	label: 'Method Code Size Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8248	name: 'Label52'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8249	layout: (LayoutFrame 0 0 5 0 265 0 25 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8250	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8251	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8252	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8253	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8254	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8255	name: 'EntryField27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8256	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8257	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8258	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8259	model: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8260	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8261	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8262	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8263	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8264	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8265	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8266	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8267	label: '(Do not JIT, if an individual method''s code size exceeds this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8268	name: 'Label53'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8269	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8270	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8271	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8272	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8273	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8274	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8275
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8276	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8277	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8278	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8279	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8280	label: 'Triggers:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8281	name: 'Label55'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8282	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8283	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8284	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8285	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8286	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8287	name: 'IncrementalGCAllocationTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8288	activeHelpKey: igcLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8289	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8290	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8291	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8292	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8293	label: 'Incremental GC Allocation Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8294	name: 'Label48'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8295	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8296	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8297	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8298	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8299	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8300	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8301	name: 'EntryField25'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8302	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8303	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8304	model: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8305	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8306	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8307	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8308	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8309	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8310	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8311	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8312	label: '(Start IGC whenever this has been newly allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8313	name: 'Label49'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8314	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8315	activeHelpKey: igcLimit
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8319	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8320
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8321	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8322	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8323	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8324	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8325	name: 'IncrementalGCFreespaceTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8326	activeHelpKey: igcFreeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8327	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8328	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8329	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8330	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8331	label: 'Incremental GC Freespace Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8332	name: 'Label50'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8333	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8334	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8335	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8336	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8337	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8338	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8339	name: 'EntryField26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8340	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8341	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8342	model: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8343	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8344	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8345	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8346	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8347	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8348	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8349	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8350	label: '(Start IGC whenever freespace drops below this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8351	name: 'Label51'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8352	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8353	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8354	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8355	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8356	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8357	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8358
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8359	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8360	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8361	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8362	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8363	name: 'CodeTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8364	activeHelpKey: codeTrigger
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8365	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8366	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8367	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8368	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8369	label: 'Incremental GC Dynamic Code Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8370	name: 'Label42'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8371	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8372	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8373	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8374	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8375	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8376	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8377	name: 'EntryField22'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8378	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8379	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8380	model: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8381	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8382	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8383	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8384	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8385	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8386	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8387	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8388	label: '(Start incremental GC whenever this amount of code has been allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8389	name: 'Label43'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8390	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8391	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8392	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8393	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8394	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8395	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8396
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8397	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8398	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8399	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8400	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8401	name: 'GCAmountBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8402	activeHelpKey: igcFreeAmount
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8403	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8404	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8405	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8406	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8407	label: 'Incremental GC Amount:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8408	name: 'Label32'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8409	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8410	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8411	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8412	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8413	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8414	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8415	name: 'EntryField17'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8416	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8417	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8418	model: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8419	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8420	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8421	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8422	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8423	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8424	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8425	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8426	label: '(Try to keep this amount for peak requests)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8427	name: 'Label33'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8428	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8429	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8430	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8431	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8432	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8433	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8434
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8435	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8436	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8437	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8438	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8439
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8440	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8441	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8442	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8443
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8444	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8445	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8446	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8447
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8448	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8449
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8450	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8451	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8452	readAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8453	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8454
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8455	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8456	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8457	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8458	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8459	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8460	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8461	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8462	self methodCodeSizeLimit value:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8463	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8464
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8465	self stackLimit value:Process defaultMaximumStackSize.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8466
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8467	"Modified: / 12-08-2010 / 15:34:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8468	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8469
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8470	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8471	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8472	writeAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8473	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8474
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8475	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8476	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8477	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8478	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8479	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8480	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8481	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8482	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8483	ObjectMemory codeSizeLimitForDynamicCompilation:(self methodCodeSizeLimit value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8484
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8485	Process defaultMaximumStackSize:self stackLimit value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8486
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8487	"Modified: / 12-08-2010 / 15:34:47 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8488	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8490	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8491
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8492	aspectsInObjectMemory
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8493	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8494	newSpaceSize
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8495	maxOldSpace
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8496	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8497	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8498
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8499	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8500
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8501	codeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8502	codeLimit := ObjectMemory dynamicCodeLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8503	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8504	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8505	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8506	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8507
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8508	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8509
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8510	codeTrigger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8511	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8512	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8513	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8514	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8515	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8516
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8517	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8518
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8519	compressLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8520	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8521	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8522	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8523	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8524	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8525
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8526	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8527
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8528	fastMoreLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8529	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8530	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8531	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8532	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8533	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8535	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8536
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8537	igcFreeAmount isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8538	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8539	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 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	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8542	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8543
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8544	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8545
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8546	igcFreeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8547	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8548	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 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	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8551	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8552
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8553	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8554
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8555	igcLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8556	igcLimit := ObjectMemory incrementalGCLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8557	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8558	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8559	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8560	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8561
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8562	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8563
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8564	maxOldSpace isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8565	maxOldSpace := ObjectMemory maxOldSpace asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8566	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 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	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8569	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8570
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8571	methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8572
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8573	methodCodeSizeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8574	methodCodeSizeLimit := (ObjectMemory codeSizeLimitForDynamicCompilation:-1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8575	methodCodeSizeLimit onChangeSend:#updateModifiedChannel to:self
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8576	].
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8577	^ methodCodeSizeLimit.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8578
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8579	"Created: / 12-08-2010 / 15:31:56 / cg"
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8580	!
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8581
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8582	newSpaceSize
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	newSpaceSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8585	newSpaceSize := ObjectMemory newSpaceSize asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8586	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8587	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8588	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8589	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8590
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8591	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8593	oldIncr isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8594	oldIncr := ObjectMemory oldSpaceIncrement asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8595	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8596	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8597	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8598	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8599
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8600	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8602	stackLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8603	stackLimit := Process defaultMaximumStackSize asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8604	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8605	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8606	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8607	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8608
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8609	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8610
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8611	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8612	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8613
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8614	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8616	warningLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8617	warningLabelHolder := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8619	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8620	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8621
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8622	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8623
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8624	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8625	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8626	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8627
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8628	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8629
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8630	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8631	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8632
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8633	super initialize.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8634	self warningLabelHolder
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8635	value:(StringCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8636	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8637	with:(resources string:'You have been warned.') allBold
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8638	).
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8639
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8640	"Modified: / 08-02-2017 / 00:30:20 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8641	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8643	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8644
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8645	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8646	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8647	hasChangedAspectIn:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8648	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8649
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8650	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8651	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8652	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8653	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8654	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8655	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8656	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8657	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8658	(ObjectMemory codeSizeLimitForDynamicCompilation:-1) ~= self methodCodeSizeLimit value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8659
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8660	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8661	^ false
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8662
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8663	"Modified: / 12-08-2010 / 15:33:12 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8664	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8665
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8666	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8667
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8668	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8669	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8670	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8671
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8672	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8673	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8674
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8675	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8676	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8677	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8678
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8679	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8680
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8681	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8682
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8683	#dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8684	'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	8685
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8686	#smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8687	'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	8688	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8689	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8690
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8691	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'image specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8692
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8693	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8694	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8695	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8696
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8697	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8698	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8699
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8700	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8701	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8702	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8703	Icon flushCachedIcons
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8704	"
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	<resource: #image>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8707
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8708	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8709	constantNamed:'AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8710	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8711	@@!!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	8712	]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	8713	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	8714	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8715
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8716	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8717
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8718	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8719	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8720	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8721
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8722	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8723	the UIPainter may not be able to read the specification."
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	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8726	UIPainter new openOnClass:AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8727	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8728	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8729	"
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	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8732
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	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8735	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8736	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8737	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8738	label: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8739	name: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8740	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8741	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8742	bounds: (Rectangle 0 0 738 671)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8743	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8744	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8745	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8746	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8747	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8748	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8749	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	8750	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8751	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8752	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8753	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8754	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8755	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8756	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8757	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8758	label: '.NET Bridge'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8759	name: 'FramedBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8760	activeHelpKey: dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8761	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8762	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8763	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8764	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8765	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8766	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8767	name: 'VerticalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8768	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8769	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8770	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8771	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8772	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8773	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8774	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8775	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8776	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8777	name: 'Box6'
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	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8782	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8783	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8784	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8785	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8786	model: dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8787	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8788	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8789	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8790
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8791	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8792	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8793	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8794	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8795	name: 'Box7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8796	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8797	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8798	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8799	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8800	label: 'Bridge Runs in IDE'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8801	name: 'CheckBox6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8802	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8803	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8804	model: dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8805	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8806	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8807	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8808
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8809	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8810	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8811	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8812	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8813
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8814	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8815	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8816	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8817	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8818	name: 'Button1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8819	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8820	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8821	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8822	model: closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8823	enableChannel: hasDotNetBridge
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
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	extent: (Point 738 92)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8829	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8830	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8831	label: 'Smalltalk Bridge Server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8832	name: 'FramedBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8833	activeHelpKey: smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8834	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8835	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8836	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8837	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8838	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8839	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8840	name: 'VerticalPanel4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8841	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8842	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8843	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8844	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8845	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8846	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8847	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8848	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8849	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8850	name: 'Box8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8851	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8852	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8853	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8854	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8855	label: 'Bridge Server Enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8856	name: 'CheckBox7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8857	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	8858	enableChannel: hasSmalltalkBridge
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8859	model: smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8860	translateLabel: true
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	)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8865	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8866	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8867	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8868	name: 'Box9'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8869	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8870	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8871	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8872	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8873	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8874	name: 'CheckBox8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8875	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8876	enableChannel: hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8877	model: smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8878	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8879	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8880	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8881
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8882	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8883	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8884	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8885	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8886
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8887	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8888	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8889	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8890	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8891	name: 'Button2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8892	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8893	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8894	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8895	model: closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8896	enableChannel: hasSmalltalkBridge
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
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	extent: (Point 738 101)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8902	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8903	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8904
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8905	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8906	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8907	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8908
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8909	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8910	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8911	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8912
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8913	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'actions'!
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	aspects
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	smtpServerName
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8918	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8919	dotNetBridgeVerbose
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	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8924	super basicReadSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8925
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8926	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8927	self smalltalkBridgeVerbose value:(BRIDGE::SmalltalkBridge verbose).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8928	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8929	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8930
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8931	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8932	super basicSaveSettings.
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	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8935	BRIDGE::SmalltalkBridge verbose:(self smalltalkBridgeVerbose value).
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	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'aspects'!
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	acceptChannel
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	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8944	acceptChannel := TriggerValue new.
16164 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	^ acceptChannel.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8947
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8948	"Created: / 12-11-2006 / 19:04:09 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8949	!
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	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8952
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8953	dotNetBridgeRunsInIDE isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8954	dotNetBridgeRunsInIDE := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8955	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
16164 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	^ dotNetBridgeRunsInIDE.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8958	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8959
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8960	dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8961
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8962	dotNetBridgeVerbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8963	dotNetBridgeVerbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8964	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8965	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8966	^ dotNetBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8967	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8968
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8969	hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8970	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
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	hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8974	^ BRIDGE::SmalltalkBridge notNil and:[ BRIDGE::SmalltalkBridge isLoaded ].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8975	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8976
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8977	smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8978
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8979	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8980	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8981	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8982	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8983	^ smalltalkBridgeEnabled.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8986	smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8987
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8988	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8989	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8990	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8991	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8992	^ smalltalkBridgeVerbose.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8995	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'help'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8996
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8997	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8998	^ 'Launcher/communicationsSettings.html'
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9001	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'initialization & release'!
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	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9004	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9005
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9006	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9007	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9008
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9009	"Modified: / 08-02-2017 / 00:30:35 / cg"
16164 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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9012	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'queries'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9013
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9014	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9015
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9016	^ SmalltalkShareServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9017	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9018
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9019	hasUnsavedChanges
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9020	(super hasUnsavedChanges) ifTrue:[^ true].
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	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9023	BRIDGE::SmalltalkBridge verbose ~= (self smalltalkBridgeVerbose value) ifTrue:[^ true].
16466 59b8495a1650 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 16411 diff changeset	9024	BRIDGE::SmalltalkBridge defaultInstanceOrNil notNil ifTrue:[
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9025	(self smalltalkBridgeEnabled value) ifFalse:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9026	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9027	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
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	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9030	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9031	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9032	^ false
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:'user actions'!
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	closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9038	DOTNET::DotNet notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9039	DOTNET::DotNet exitAllInstances
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9040	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9041	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9042
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9043	closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9044	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9045	BRIDGE::SmalltalkBridge exitAllInstances
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9046	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9047	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9048
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9049	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9050
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9051	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9052	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9053	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9054
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9055	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9056	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9057
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9058	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9059	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9060	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9061
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9062	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9063
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9064	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9065
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9066	#smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9067	'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	9068
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9069	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9070	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9071
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9072	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9073
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9074	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9075	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9076	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9077
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9078	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9079	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9080
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9081	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9082	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9083	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9084	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9085	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9086
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9087	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9088
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9089	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9090	constantNamed:'AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9091	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4949 a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	9092	@@!!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	9093	]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	9094	P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9095	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	9096	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	9097	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9098
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9099	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9101	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9102	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9103	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9104
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9105	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9106	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9107
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9108	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9109	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9110	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9111	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9112	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9113
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9114	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9115
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9116	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9117	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9118	name: windowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9119	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9120	(WindowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9121	label: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9122	name: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9123	flags: 1
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9124	min: (Point 10 10)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	9125	bounds: (Rectangle 0 0 738 671)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9126	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9127	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9128	(SpecCollection
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9129	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9130	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9131	name: 'VerticalPanel1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9132	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	9133	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9134	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9135	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9136	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9137	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9138	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9139	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9140	(FramedBoxSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9141	label: 'SMTP (Mail) Server'
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9142	name: 'SMTPServerBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9143	activeHelpKey: smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9144	labelPosition: topLeft
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9145	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9146	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9147	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9148	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9149	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9150	name: 'Box5'
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9151	layout: (LayoutFrame 0 0 10 0 0 1 35 0)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9152	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9153	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9154	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9155	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9156	label: 'SMTP Server:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9157	name: 'SMTPLabel'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9158	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9159	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9160	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9161	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9162	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9163	name: 'SMTPServer'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9164	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9165	model: smtpServerName
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9166	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9167	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9168	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9169	acceptOnPointerLeave: false
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9170	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9171	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9172
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9173	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9174	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9175	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9176
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9177	)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9178	extent: (Point 738 81)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9179	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9180	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9181
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9182	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9183	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9184	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9185
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9186	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9187	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9188	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9189
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9190	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9191
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9192	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9193	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9194	smtpServerName
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9195	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9196	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9197
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9198	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9199
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9200	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9201
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9202	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9203	acceptChannel := TriggerValue new.
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9204	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9205	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9206
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9207	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9208	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9209
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9210	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9211
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9212	smtpServerName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9213	smtpServerName := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9214	smtpServerName onChangeSend:#updateModifiedChannel to:self.
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9215	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9216	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9217
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9218	"Created: / 20-09-2007 / 16:04:39 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9219	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9220
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9221	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9222
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9223	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9224	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9225	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9226
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9227	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9228
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9229	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9230	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9231
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9232	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9233	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9234
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9235	"Modified: / 08-02-2017 / 00:30:26 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9236	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9237
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9238	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9239
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9240	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9241	(super hasUnsavedChanges) ifTrue:[^ true].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9242	^ false
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	"Modified: / 20-09-2007 / 16:04:56 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9245	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9246
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9247	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'help specs'!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9248
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9249	helpSpec
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9250	"This resource specification was automatically generated
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9251	by the UIHelpTool of ST/X."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9252
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9253	"Do not manually edit this!! If it is corrupted,
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9254	the UIHelpTool may not be able to read the specification."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9255
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9256	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9257	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9258	"
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9259
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9260	<resource: #help>
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9261
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9262	^ super helpSpec addPairsFrom:#(
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9263
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9264	#nativeWidgets
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9265	'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	9266
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9267	#nativeDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9268	'Use native dialogs if possible (WarnBox, InformationBox, etc.)\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9269
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9270	#nativeFileDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9271	'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	9272
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9273	#shadows
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9274	'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	9275
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9276	#cartoonToolTipStyle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9277	'Choose between normal and cartoon mode when showing tooltips.'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9278
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9279	#opaqueVariablePanelResizing
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9280	'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	9281
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9282	#opaqueTableColumnResizing
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9283	'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	9284
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9285	#lowerOnRightClickInTitle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9286	'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	9287
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9288	#lowerOnShiftClickInTitle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9289	'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	9290
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9291	)
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
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9294	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9295
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9296	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9297	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9298	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9299
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9300	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9301	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9302
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9303	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9304	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9305	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9306	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9307	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9308
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9309	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9310
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9311	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9312	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9313	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9314	@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.;.;.;.;.;@@@@:<;]!!I&W3.,@@@C+3-6D&Y_N:0@@@N/%
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9315	**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	9316	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	9317	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9318
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9319	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9320
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9321	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9322	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9323	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9329	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9330	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9331	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9333
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9334	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9335
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9336	^
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9337	#(FullSpec
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9338	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9339	window:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9340	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9341	label: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9342	name: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9343	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9344	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9345	bounds: (Rectangle 0 0 671 591)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9346	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9347	component:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9348	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9349	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9350	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9351	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9352	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9353	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9354	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9355	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9356	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9357	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9358	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9359	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9360	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9361	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9362	name: 'NativeWidgets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9363	activeHelpKey: nativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9364	enableChannel: displaySupportsNativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9365	model: nativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9366	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9367	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9368	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9369	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9370	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9371	name: 'NativeDialogs'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9372	activeHelpKey: nativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9373	enableChannel: displaySupportsNativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9374	model: nativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9375	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9376	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9377	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9378	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9379	label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9380	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9381	activeHelpKey: nativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9382	enableChannel: displaySupportsNativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9383	model: nativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9384	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9385	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9386	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9387	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9388	name: 'SeparatingSpace1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9389	extent: (Point 661 5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9390	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9391	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9392	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9393	extent: (Point 661 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9394	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9395	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9396	name: 'SeparatingSpace2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9397	extent: (Point 661 5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9398	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9399	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9400	label: 'Shadows under PopUp Views'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9401	name: 'shadows'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9402	activeHelpKey: shadows
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9403	model: shadows
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9404	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9405	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9406	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9407	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9408	label: 'Cartoon Tooltip Style'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9409	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9410	activeHelpKey: cartoonToolTipStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9411	enableChannel: displaySupportsArbitraryShapedViews
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9412	model: cartoonToolTipStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9413	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9414	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9415	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9416	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9417	label: 'Opaque Variable Panel Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9418	name: 'opaqueVariablePanelResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9419	activeHelpKey: opaqueVariablePanelResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9420	model: opaqueVariablePanelResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9421	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9422	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9423	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9424	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9425	label: 'Opaque Table Column Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9426	name: 'opaqueTableColumnResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9427	activeHelpKey: opaqueTableColumnResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9428	model: opaqueTableColumnResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9429	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9430	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9431	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9432	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9433	name: 'SeparatingSpace3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9434	extent: (Point 661 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9435	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9436	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9437	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9438	extent: (Point 661 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9439	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9440	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9441	name: 'SeparatingSpace4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9442	extent: (Point 661 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9443	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9444	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9445	label: 'Right-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9446	name: 'lowerOnRightClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9447	activeHelpKey: lowerOnRightClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9448	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9449	model: lowerOnRightClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9450	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9451	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9452	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9453	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9454	label: 'Shift-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9455	name: 'lowerOnShiftClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9456	activeHelpKey: lowerOnShiftClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9457	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9458	model: lowerOnShiftClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9459	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9460	extent: (Point 661 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9461	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9462	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9463
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9464	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9465	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9466	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9467
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9468	)
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9469	)
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9470	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9471
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9472	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9473
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9474	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9475	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9476
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9477	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9478
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9479	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9480	readAspects:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9481	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9482	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9483	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9484	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9485	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9486	from:currentScreen.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9487
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9488	super basicReadSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9489
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9490	self shadows value:PopUpView shadows.
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9491	self cartoonToolTipStyle value: (currentUserPrefs toolTipShapeStyle == #cartoon).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9492
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9493	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9494	self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9495	self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9496	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9497
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9498	"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	9499	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9500
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9501	basicSaveSettings
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9502	\|currentScreen mustReopenTools\|
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9503
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9504	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9505
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9506	currentScreen := Screen current.
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	self displaySupportsNativeWidgets ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9509	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9510	mustReopenTools := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9511	currentScreen nativeWidgets:self nativeWidgets value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9512	currentUserPrefs nativeWidgets:self nativeWidgets value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9513	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9514	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9515	self displaySupportsNativeDialogs ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9516	currentScreen nativeDialogs:self nativeDialogs value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9517	currentUserPrefs nativeDialogs:self nativeDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9518	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9519	self displaySupportsNativeFileDialogs ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9520	currentScreen nativeFileDialogs:self nativeFileDialogs value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9521	currentUserPrefs nativeFileDialogs:self nativeFileDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9522	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9523
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9524	currentUserPrefs toolTipShapeStyle:((self cartoonToolTipStyle value)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9525	ifTrue:[ #cartoon ]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9526	ifFalse:[ nil ]).
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9527	PopUpView shadows:self shadows value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9528
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9529	super basicSaveSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9530
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	9531	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9532	currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9533	currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9534	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9535
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9536	mustReopenTools ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9537	self reopenToolsAfterChangedViewStyleSetting.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9538	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9539
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9540	"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	9541	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9542
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9543	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9544
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9545	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9546	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9547	opaqueVariablePanelResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9548	opaqueTableColumnResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9549	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9550
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9551	"Modified: / 24-08-2010 / 17:26:38 / sr"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9552	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9553
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9554	cartoonToolTipStyle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9555	cartoonToolTipStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9556	cartoonToolTipStyle := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9557	cartoonToolTipStyle onChangeSend:#updateModifiedChannel to:self
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9558	].
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9559	^ cartoonToolTipStyle.
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9560	!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9561
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9562	displaySupportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9563	^ Screen current supportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9564	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9565
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9566	displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9567	^ Screen current supportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9568
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9569	"Modified: / 24-08-2010 / 16:28:58 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9570	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9571
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9572	displaySupportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9573	^ Screen current supportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9574	!
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	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9577	lowerOnRightClickInTitle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9578	lowerOnRightClickInTitle := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9579	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9580	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9581	^ lowerOnRightClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9582	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9583
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9584	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9585	lowerOnShiftClickInTitle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9586	lowerOnShiftClickInTitle := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9587	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9588	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9589	^ lowerOnShiftClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9590	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9591
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9592	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9593	nativeDialogs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9594	nativeDialogs := Screen current nativeDialogs asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9595	nativeDialogs onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9596	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9597	^ nativeDialogs.
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	nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9601	nativeFileDialogs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9602	nativeFileDialogs := Screen current nativeFileDialogs asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9603	nativeFileDialogs onChangeSend:#updateModifiedChannel to:self
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9604	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9605	^ nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9606
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9607	"Modified: / 24-08-2010 / 16:43:08 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9608	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9609
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9610	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9611	nativeWidgets isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9612	nativeWidgets := Screen current nativeWidgets asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9613	nativeWidgets 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	^ nativeWidgets.
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	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9619	opaqueTableColumnResize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9620	opaqueTableColumnResize := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9621	opaqueTableColumnResize 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	^ opaqueTableColumnResize.
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	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9627	opaqueVariablePanelResize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9628	opaqueVariablePanelResize := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9629	opaqueVariablePanelResize 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	^ opaqueVariablePanelResize.
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
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9634	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9635	shadows isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9636	shadows := PopUpView shadows asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9637	shadows onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9638	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9639	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9640	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9641
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9642	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9643
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9644	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9645	^ 'Launcher/miscSettings.html'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9646	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9647
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9648	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9649
13548 dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9650	displaySupportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9651	^ Screen current supportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9652	!
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9653
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9654	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9655	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9656
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9657	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9658
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9659	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9660	hasChangedAspectIn:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9661	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9662	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9663	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9664	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9665	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9666	asComparedTo:currentScreen) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9667
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9668	(super hasUnsavedChanges) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9669
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9670	self shadows value ~= PopUpView shadows ifTrue:[^ true].
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9671	(currentUserPrefs toolTipShapeStyle == #cartoon) ~= cartoonToolTipStyle value ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9672
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9673	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9674	(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9675	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9676	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9677	^ false
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9678
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9679	"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	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	isWindowsDisplay
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	9683	^ Screen current isWindowsPlatform
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9684	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9685
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9686	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'help specs'!
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9687
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9688	helpSpec
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9689	"This resource specification was automatically generated
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9690	by the UIHelpTool of ST/X."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9691
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9692	"Do not manually edit this!! If it is corrupted,
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9693	the UIHelpTool may not be able to read the specification."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9694
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9695	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9696	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9697	"
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9698
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9699	<resource: #help>
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9700
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9701	^ super helpSpec addPairsFrom:#(
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9702
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9703	#showAccelerators
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9704	'Show shortcut-key bindings (if any) in popup menus'
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9705
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9706	#focusFollowsMouse
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9707	'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	9708
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9709	#'shouldRememberLastExtent'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9710	'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	9711
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9712	#menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9713	'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	9714
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9715	#mouseWheelFocusFollowsMouse
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9716	'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	9717
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9718	#allowMouseWheelZoom
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9719	'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	9720
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9721	#metaIsMouseWheelZoom
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9722	'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	9723
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9724	#takeFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9725	'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	9726
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9727	#returnFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9728	'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	9729
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9730	#activateOnClick
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9731	'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	9732
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9733	#button2WithAltKey
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9734	'Use with single button mice to get a right-button emulation'
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9735
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9736	#selectOnRightClick
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	9737	'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	9738
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9739	#showRightButtonMenuOnRelease
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	9740	'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	9741
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9742	#hostNameInLabel
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9743	'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	9744
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9745	#autoRaiseOnFocusIn
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9746	'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	9747
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9748	#forceWindowsIntoMonitorBounds
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9749	'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	9750	)
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9751
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9752	"Modified: / 30-08-2017 / 14:57:30 / cg"
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9753	! !
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9754
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9755	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9756
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9757	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9758	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9759	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9760
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9761	"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	9762	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	9763
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9764	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9765	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9766	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9767	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9768	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9769
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9770	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9771
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9772	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9773	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9774	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	9775	@@@@@@@@@@@@@@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	9776	@@@@@@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	9777	@ 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	9778	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	9779	@ 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	9780	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9781	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	9782	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	9783	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9784
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9785	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9786
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9787	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9788	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9789	by the UIPainter of ST/X."
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	"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	9792	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	9793
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	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9796	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9797	AbstractSettingsApplication::MiscDisplaySettingsAppl open
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
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9800	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9801
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9802	^
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9803	#(FullSpec
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9804	name: windowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9805	window:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9806	(WindowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9807	label: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9808	name: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9809	flags: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9810	min: (Point 10 10)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9811	bounds: (Rectangle 0 0 540 662)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9812	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9813	component:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9814	(SpecCollection
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9815	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9816	(VerticalPanelViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9817	name: 'VerticalPanel1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9818	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9819	horizontalLayout: fitSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9820	verticalLayout: topSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9821	horizontalSpace: 5
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9822	verticalSpace: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9823	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9824	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9825	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9826	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9827	label: 'Beeper enabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9828	name: 'beepEnabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9829	visibilityChannel: false
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9830	model: beepEnabled
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9831	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9832	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9833	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9834	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9835	label: 'Show Accelerator Keys in Menus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9836	name: 'showAccelerators'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9837	activeHelpKey: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9838	model: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9839	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9840	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9841	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9842	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9843	name: 'SeparatingSpace1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9844	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9845	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9846	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9847	name: 'Separator1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9848	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9849	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9850	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9851	name: 'SeparatingSpace2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9852	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9853	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9854	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9855	label: 'Keyboard Focus Follows Mouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9856	name: 'focusFollowsMouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9857	activeHelpKey: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9858	model: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9859	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9860	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9861	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9862	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9863	label: 'MouseWheel Focus Follows Mouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9864	name: 'mouseWheelFocusFollowsMouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9865	activeHelpKey: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9866	enableChannel: mouseWheelFocusFollowsMouseEnabled
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9867	model: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9868	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9869	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9870	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9871	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9872	label: 'Zoom with CTRL- or ALT-Mousewheel'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9873	name: 'CheckBox1'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9874	activeHelpKey: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9875	model: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9876	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9877	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9878	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9879	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9880	name: 'SeparatingSpace4'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9881	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9882	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9883	(DividerSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9884	name: 'Separator2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9885	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9886	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9887	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9888	name: 'SeparatingSpace5'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9889	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9890	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9891	(CheckBoxSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9892	label: 'Menu Panels take Focus on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9893	name: 'CheckBox7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9894	activeHelpKey: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9895	model: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9896	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9897	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9898	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9899	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9900	label: 'Views Catch Focus when Mapped'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9901	name: 'takeFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9902	activeHelpKey: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9903	model: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9904	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9905	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9906	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9907	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9908	label: 'Boxes Return Focus to Previously Active View'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9909	name: 'returnFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9910	activeHelpKey: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9911	model: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9912	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9913	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9914	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9915	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9916	label: 'Raise & Activate Windows on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9917	name: 'activateOnClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9918	activeHelpKey: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9919	model: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9920	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9921	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9922	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9923	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9924	label: 'Autoraise Windows on FocusIn'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9925	name: 'CheckBox4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9926	activeHelpKey: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9927	model: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9928	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9929	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9930	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9931	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9932	label: 'Force Windows into Monitor''s Bounds'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9933	name: 'CheckBox2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9934	activeHelpKey: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9935	model: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9936	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9937	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9938	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9939	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9940	label: 'Applications Remember Last Extent as Default'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9941	name: 'CheckBox5'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9942	activeHelpKey: shouldRememberLastExtent
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	9943	model: shouldRememberLastExtentHolder
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9944	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9945	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9946	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9947	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9948	name: 'SeparatingSpace5'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9949	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9950	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9951	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9952	name: 'Separator3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9953	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9954	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9955	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9956	name: 'SeparatingSpace6'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9957	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9958	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9959	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9960	label: 'Select on Right-Button-Press'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9961	name: 'selectOnRightClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9962	activeHelpKey: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9963	model: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9964	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9965	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9966	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9967	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9968	label: 'Menu on Right-Button-Release'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9969	name: 'showRightButtonMenuOnRelease'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9970	activeHelpKey: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9971	model: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9972	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9973	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9974	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9975	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9976	label: 'ALT-Leftclick is Rightclick'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9977	name: 'CheckBox3'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9978	activeHelpKey: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9979	model: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9980	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9981	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9982	)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9983	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9984	name: 'SeparatingSpace7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9985	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9986	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9987	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9988	name: 'Separator4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9989	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9990	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9991	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9992	name: 'SeparatingSpace8'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9993	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9994	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9995	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9996	name: 'Box1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9997	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9998	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9999	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10000	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10001	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10002	name: 'Label1'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10003	layout: (LayoutFrame 0 0 0 0 218 0 20 0)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10004	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10005	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10006	labelChannel: formatHostNameWindowLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10007	adjust: right
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10008	useDefaultExtent: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10009	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10010	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10011	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10012	name: 'Label2'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10013	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	10014	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10015	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10016	labelChannel: formatHostNameWindowLabel1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10017	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10018	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10019	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10020	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10021	name: 'Label3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10022	layout: (LayoutFrame 0 0.59999999999999998 30 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10023	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10024	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10025	labelChannel: formatHostNameWindowLabel2
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10026	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10027	)
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
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10030	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10031	extent: (Point 530 92)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10032	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10033	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10034	name: 'WindowLabelBox'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10035	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10036	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10037	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10038	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10039	label: 'Window Label Format'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10040	name: 'hostNameInLabelHolder'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10041	layout: (LayoutFrame 0 0 0 0 216 0 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10042	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10043	model: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10044	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10045	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10046	(InputFieldSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10047	name: 'hostNameInLabelEntryField'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10048	layout: (LayoutFrame 218 0 0 0 -5 1 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10049	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10050	enableChannel: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10051	model: newWindowLabelFormat
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10052	immediateAccept: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10053	acceptOnReturn: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10054	acceptOnTab: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10055	acceptOnLostFocus: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10056	acceptOnPointerLeave: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10057	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10058	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10059
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10060	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10061	extent: (Point 530 30)
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	)
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	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10068
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10069	)
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10070	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10071	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10074
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10075	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10076	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10077
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10078	self shouldRememberLastExtentHolder value:currentUserPrefs shouldRememberLastExtent.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10079	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10080	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10081	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10082	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	10083	self activateOnClick value:(Screen current activateOnClick:nil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10084	self showAccelerators value:MenuView showAcceleratorKeys.
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10085
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10086	self autoRaiseOnFocusIn value: (currentUserPrefs autoRaiseOnFocusInDelay notNil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10087	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10088
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10089	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10090	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10091
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10092	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10093
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10094	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10095	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10096	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10097	self newWindowLabelFormat value notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10098	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10099	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10100
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10101	Screen allScreens do:[:aDisplay \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10102	aDisplay allViewsDo:[:aView \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10103	\|l\|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10104
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10105	aView isTopView ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10106	l := aView label.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10107	l notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10108	aView label:(l , ' '); label:l. "/ force a change
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10109	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10110	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10111	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10112	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10113	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10114
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10115	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10116
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10117	currentUserPrefs shouldRememberLastExtent:(self shouldRememberLastExtentHolder value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10118	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10119	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10120	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10121
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10122	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10123
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10124	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10125	currentUserPrefs autoRaiseOnFocusInDelay:(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10126	self autoRaiseOnFocusIn value ifTrue:[ 750 ] ifFalse:[nil]).
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10127	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10128
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10129	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10130	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10131
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10132	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10133	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	10134
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10135	newFormat := Dialog
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10136	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	10137	withCRs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10138	initialAnswer:newWindowLabelFormat.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10139	newFormat notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10140	newWindowLabelFormat := newFormat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10141	self updateModifiedChannel
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10142	]
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10143
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10144	"Modified: / 17-02-2017 / 08:26:39 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10145	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10146
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10148
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10149	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10150	activateOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10151	activateOnClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10152	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10153	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10154	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10155	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10156
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10157	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10158	allowMouseWheelZoom isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10159	allowMouseWheelZoom := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10160	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10161	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10162	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10163	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10164
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10165	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10166	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10167	beepEnabled
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10168	focusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10169	mouseWheelFocusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10170	showRightButtonMenuOnRelease
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10171	selectOnRightClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10172	allowMouseWheelZoom
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10173	forceWindowsIntoMonitorBounds
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10174	button2WithAltKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10175	menuPanelTakesFocusOnClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10176	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10177
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10178	"Modified: / 31-07-2013 / 18:14:44 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10179	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10180
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10181	autoRaiseOnFocusIn
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10182	autoRaiseOnFocusIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10183	autoRaiseOnFocusIn := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10184	autoRaiseOnFocusIn onChangeSend:#updateModifiedChannel to:self
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10185	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10186	^ autoRaiseOnFocusIn.
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10187	!
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10188
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10189	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10190	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10191	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10192	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10193	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10194	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10195	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10196
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10197	button2WithAltKey
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10198	button2WithAltKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10199	button2WithAltKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10200	button2WithAltKey onChangeSend:#updateModifiedChannel to:self
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10201	].
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10202	^ button2WithAltKey.
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10203	!
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10204
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10205	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10206	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10207	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10208
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10209	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10210	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10211	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10212
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10213	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10214	focusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10215	focusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10216	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10217	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10218	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10219	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10220
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10221	forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10222	forceWindowsIntoMonitorBounds isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10223	forceWindowsIntoMonitorBounds := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10224	forceWindowsIntoMonitorBounds onChangeSend:#updateModifiedChannel to:self
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10225	].
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10226	^ forceWindowsIntoMonitorBounds.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10227
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10228	"Created: / 22-10-2010 / 14:25:40 / cg"
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10229	!
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10230
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10231	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10232	formatHostNameWindowLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10233	formatHostNameWindowLabel :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10234	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10235	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10236	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10237
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10238	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10239	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10240	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10241
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10242	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10243	formatHostNameWindowLabel1 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10244	formatHostNameWindowLabel1 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10245	(resources stringWithCRs:'%1 - Label\%2 - Hostname\%3 - Username')
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10246	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10247	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10248
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10249	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10250	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10251	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10252
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10253	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10254	formatHostNameWindowLabel2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10255	formatHostNameWindowLabel2 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10256	(resources stringWithCRs:'%4 - ProcessId\%5 - TOP-Directory\%6 - TOP-Path').
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10257	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10258	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10259
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10260	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10261	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10262	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10263
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10264	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10265	hostNameInLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10266	hostNameInLabelHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10267	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10268	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10269	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10270	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10271
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10272	menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10273	menuPanelTakesFocusOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10274	menuPanelTakesFocusOnClick := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10275	menuPanelTakesFocusOnClick onChangeSend:#updateModifiedChannel to:self
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10276	].
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10277	^ menuPanelTakesFocusOnClick.
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10278	!
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10279
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10280	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10281	mouseWheelFocusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10282	mouseWheelFocusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10283	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10284	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10285	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10286	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10287
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10288	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10289	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10290	forLogicalNot:(self focusFollowsMouse).
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10291	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10292
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10293	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10294	newWindowLabelFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10295	newWindowLabelFormat := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10296	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10297	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10298	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10299
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10300	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10301	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10302
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10303	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10304	returnFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10305	returnFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10306	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10307	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10308	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10309	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10310
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10311	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10312	selectOnRightClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10313	selectOnRightClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10314	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10315	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10316	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10317	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10318
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10319	shouldRememberLastExtentHolder
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10320	shouldRememberLastExtentHolder isNil ifTrue:[
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10321	shouldRememberLastExtentHolder := true asValue.
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10322	shouldRememberLastExtentHolder onChangeSend:#updateModifiedChannel to:self
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10323	].
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10324	^ shouldRememberLastExtentHolder.
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10325	!
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10326
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10327	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10328	showAccelerators isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10329	showAccelerators := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10330	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10331	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10332	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10333	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10334
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10335	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10336	showRightButtonMenuOnRelease isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10337	showRightButtonMenuOnRelease := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10338	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10339	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10340	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10341	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10342
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10343	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10344	takeFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10345	takeFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10346	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10347	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10348	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10349	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10350
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10351	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10352
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10353	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10354	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10355	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10356
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10357	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10358
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10359	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10360	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	10361
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10362	self shouldRememberLastExtentHolder value ~= currentUserPrefs shouldRememberLastExtent ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10363	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10364	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10365	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10366	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	10367	self activateOnClick value ~= (Screen current activateOnClick:nil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10368	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10369	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10370	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10371	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10372
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10373	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10374
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10375	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10376	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10377	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10378
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10379	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10380	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10381
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10382	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10383	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10384	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10385
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10386	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10387
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10388	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10389
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10390	#windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10391	'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	10392
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10393	#remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10394	'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	10395
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10396	#smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10397	'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	10398
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10399	#smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10400	'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	10401
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10402	#smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10403	'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	10404
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10405	#smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10406	'Name of host to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10407
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10408	#addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10409	'Add the above hostname to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10410
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10411	#removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10412	'Remove the selected hostname from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10413
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10414	#smallTeamViaXMPP
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10415	'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	10416
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10417	#xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10418	'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	10419
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10420	#xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10421	'Your login username on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10422
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10423	#xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10424	'Your login password on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10425
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10426	#smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10427	'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	10428
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10429	#smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10430	'Name of user to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10431
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10432	#addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10433	'Add the above username to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10434
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10435	#removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10436	'Remove the selected username from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10437	)
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10440	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10443	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10444	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10445
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10446	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10447	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10448
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10449	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10450	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10451	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10452	Icon flushCachedIcons
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10455	<resource: #image>
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	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10458	constantNamed:'AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10459	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10460	@@!!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	10461	]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	10462	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	10463	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10464
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10465	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10466
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10467	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10468	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10469	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10470
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10471	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10472	the UIPainter may not be able to read the specification."
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	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10475	UIPainter new openOnClass:AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10476	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10477	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10478	"
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	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10481
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	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10484	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10485	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10486	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10487	label: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10488	name: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10489	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10490	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10491	bounds: (Rectangle 0 0 751 766)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10492	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10493	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10494	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10495	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10496	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10497	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10498	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	10499	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10500	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10501	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10502	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10503	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10504	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10505	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10506	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10507	label: 'Window migration'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10508	name: 'WindowMicrationSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10509	activeHelpKey: windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10510	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10511	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10512	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10513	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10514	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10515	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10516	name: 'VerticalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10517	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10518	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10519	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10520	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10521	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10522	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10523	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10524	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10525	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10526	name: 'Box2'
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	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10531	label: 'Window migration enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10532	name: 'CheckBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10533	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10534	enableChannel: hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10535	model: windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10536	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10537	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10538	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10539
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10540	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10541	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10542	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10543	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10544	name: 'Box3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10545	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10546	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10547	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10548	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10549	label: 'Password check'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10550	name: 'CheckBox3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10551	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10552	enableChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10553	model: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10554	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10555	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10556	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10557
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10558	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10559	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10560	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10561	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10562	name: 'Box4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10563	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10564	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10565	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10566	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10567	label: 'Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10568	name: 'Label3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10569	layout: (LayoutFrame 0 0 0 0 150 0 25 0)
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	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10572	enableDisableColorChannel: enablePasswordCheck
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	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10575	name: 'EntryField1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10576	layout: (LayoutFrame 150 0 0 0 400 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10577	enableChannel: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10578	model: windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10579	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10580	acceptOnReturn: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10581	acceptOnTab: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10582	acceptOnLostFocus: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10583	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10584	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10585	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10586
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10587	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10588	extent: (Point 696 25)
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	)
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10596	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10597	extent: (Point 751 120)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10598	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10599	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10600	label: 'Remote Browsing'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10601	name: 'RemoteBrowsingSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10602	activeHelpKey: remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10603	labelPosition: topLeft
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	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10606	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10607	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10608	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10609	name: 'Box1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10610	layout: (LayoutFrame 0 0 5 0 0 1 30 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10611	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10612	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10613	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10614	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10615	label: 'Remote browsing enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10616	name: 'CheckBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10617	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10618	enableChannel: hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10619	model: remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10620	translateLabel: true
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	)
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	extent: (Point 751 70)
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	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10632	label: 'SmallTeam Change Distribution'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10633	name: 'SmallTeamSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10634	activeHelpKey: smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10635	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10636	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10637	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10638	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10639	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10640	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10641	name: 'enableBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10642	layout: (LayoutFrame 0 0 8 0 0 1 33 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10643	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10644	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10645	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10646	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10647	label: 'SmallTeam Server enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10648	name: 'CheckBox4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10649	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10650	enableChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10651	model: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10652	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10653	activeHelpKey: smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10654	)
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10660	label: 'SmallTeam Hosts:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10661	name: 'smallTeamHostsLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10662	layout: (LayoutFrame 0 0.0 37 0 60 0.25 62 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10663	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10664	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10665	enableDisableColorChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10666	activeHelpKey: smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10667	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10668	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10669	name: 'smallTeamHostsList'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10670	layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10671	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10672	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10673	model: selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10674	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10675	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10676	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10677	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10678	sequenceList: listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10679	activeHelpKey: smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10680	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10681	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10682	label: 'Host:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10683	name: 'hostLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10684	layout: (LayoutFrame 0 0.0 137 0 60 0.25 162 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10685	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10686	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10687	enableDisableColorChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10688	activeHelpKey: smallTeamHostToAdd
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	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10691	name: 'smallTeamHostEntryField'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10692	layout: (LayoutFrame 64 0.25 138 0 0 1 163 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10693	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10694	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10695	model: smallTeamHostEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10696	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10697	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10698	activeHelpKey: smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10699	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10700	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10701	name: 'HorizontalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10702	layout: (LayoutFrame 64 0.25 168 0 -1 1 193 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10703	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10704	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10705	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10706	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10707	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10708	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10709	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10710	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10711	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10712	name: 'addButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10713	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10714	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10715	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10716	enableChannel: addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10717	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10718	activeHelpKey: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10719	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10720	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10721	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10722	name: 'removeButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10723	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10724	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10725	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10726	enableChannel: removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10727	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10728	activeHelpKey: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10729	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10730	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10731
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10732	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10733	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10734	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10735	label: 'XMPP SmallTeam enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10736	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10737	layout: (LayoutFrame 5 0 197 0 600 0 222 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10738	enableChannel: smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10739	model: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10740	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10741	activeHelpKey: smallTeamViaXMPP
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10742	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10743	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10744	label: 'XMPP Team Members:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10745	name: 'Label4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10746	layout: (LayoutFrame 0 0.0 323 0 60 0.25 348 0)
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	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10749	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10750	activeHelpKey: smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10751	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10752	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10753	name: 'List1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10754	layout: (LayoutFrame 64 0.25 323 0 0 1 417 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10755	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10756	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10757	model: selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10758	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10759	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10760	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10761	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10762	sequenceList: listOfXMPPSmallTeamUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10763	activeHelpKey: smallTeamXMPPUsers
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10766	label: 'Member:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10767	name: 'Label5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10768	layout: (LayoutFrame 0 0.0 423 0 60 0.25 448 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10769	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10770	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10771	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10772	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10773	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10774	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10775	name: 'EntryField2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10776	layout: (LayoutFrame 64 0.25 424 0 0 1 449 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10777	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10778	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10779	model: xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10780	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10781	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10782	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10783	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10784	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10785	name: 'HorizontalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10786	layout: (LayoutFrame 64 0.25 455 0 -1 1 480 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10787	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10788	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10789	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10790	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10791	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10792	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10793	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10794	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10795	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10796	name: 'Button3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10797	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10798	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10799	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10800	enableChannel: addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10801	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10802	activeHelpKey: addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10803	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10804	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10805	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10806	name: 'Button4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10807	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10808	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10809	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10810	enableChannel: removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10811	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10812	activeHelpKey: removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10813	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10814	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10815
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10816	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10817	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10818	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10819	label: 'XMPP Server:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10820	name: 'Label6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10821	layout: (LayoutFrame 0 0.0 227 0 60 0.25 252 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10822	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10823	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10824	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10825	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10826	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10827	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10828	name: 'EntryField3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10829	layout: (LayoutFrame 64 0.25 228 0 0 1 253 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10830	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10831	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10832	model: smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10833	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10834	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10835	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10836	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10837	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10838	label: 'XMPP Username:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10839	name: 'Label7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10840	layout: (LayoutFrame 0 0.0 258 0 60 0.25 283 0)
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	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10843	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10844	activeHelpKey: xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10845	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10846	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10847	name: 'EntryField4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10848	layout: (LayoutFrame 64 0.25 259 0 0 1 284 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10849	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10850	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10851	model: smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10852	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10853	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10854	activeHelpKey: xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10855	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10856	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10857	label: 'XMPP Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10858	name: 'Label8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10859	layout: (LayoutFrame 0 0.0 288 0 60 0.25 313 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10860	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10861	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10862	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10863	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10864	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10865	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10866	name: 'EntryField5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10867	layout: (LayoutFrame 64 0.25 289 0 0 1 314 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10868	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10869	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10870	model: smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10871	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10872	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10873	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10874	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10875	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10876	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10877
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10878	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10879	extent: (Point 751 521)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10880	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10881	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10882
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10883	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10884	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10885	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10886
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10887	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10888	)
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10891	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10892
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10893	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10894	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10895	smallteamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10896	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10897	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10898	smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10899	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10900	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10901
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10902	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10903	\|pw auth\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10904
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10905	super basicReadSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10906
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10907	SmallTeam notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10908	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10909	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
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	self remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10913	value:(self hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10914	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
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	self windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10917	value:(self hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10918	and:[ WindowMigrationServer isLoaded
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10919	and:[ WindowMigrationServer serverRunning ]]).
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	pw := nil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10923	auth := false.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10924	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10925	pw := WindowMigrationServer password.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10926	auth := self windowMigrationPassword value notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10927	].
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	self windowMigrationPassword value:pw.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10930	self windowMigrationAuthenticate value:auth
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10931
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10932	"Modified: / 20-09-2007 / 16:04:59 / cg"
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	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10936	super basicSaveSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10937	self smallTeamServerAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10938	SmallTeam connectedHosts copy do:[:host \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10939	(self listOfSmallTeamHosts includes:host) ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10940	SmallTeam removeHost:host.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10941	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10942	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10943	self listOfSmallTeamHosts do:[:eachHost \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10944	SmallTeam addHost:eachHost.
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 smallTeamServerEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10947	SmallTeam startServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10948	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10949	SmallTeam stopServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10950	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10951	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10952	self smallTeamViaXMPPAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10953	SmallTeamXMPPRoboter listOfXMPPUsers copy do:[:user \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10954	(self listOfXMPPSmallTeamUsers includes:user) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10955	SmallTeamXMPPRoboter removeUser:user.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10956	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10957	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10958	self listOfXMPPSmallTeamUsers do:[:eachUser \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10959	SmallTeamXMPPRoboter addUser:eachUser.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10960	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10961	currentUserPrefs smallteamXMPPServer:(self smallteamXMPPServer value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10962	currentUserPrefs smallteamXMPPUser:(self smallteamXMPPUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10963	currentUserPrefs smallteamXMPPPassword:(self smallteamXMPPPassword value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10964	self smallTeamViaXMPPEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10965	SmallTeamXMPPRoboter startServer
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10966	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10967	SmallTeamXMPPRoboter stopServer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10968	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10969	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10970	self hasRemoteBrowsingSupport ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10971	self remoteBrowsingEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10972	SmalltalkShareServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10973	SmalltalkShareServer killAll
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10974	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10975	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10976	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10977	SmalltalkShareServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10978
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10979	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10980	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10981
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10982	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10983	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10984	self warn:'SmalltalkShareServer startup failed (see stderr).'
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	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10987	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10988	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10989	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10990	self windowMigrationAuthenticate value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10991	WindowMigrationServer password:self windowMigrationPassword value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10992	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10993	WindowMigrationServer password:nil
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	self windowMigrationEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10996	WindowMigrationServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10997	WindowMigrationServer stop
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10998	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10999	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11000	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11001	WindowMigrationServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11002
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11003	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11004	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11005
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11006	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11007	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11008	self warn:'WindowMigrationServer startup failed (see stderr).'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11009	]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11010	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11011	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11012	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11013
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11014	"Modified: / 20-09-2007 / 16:05:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11015	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11016
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11017	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'aspects'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11018
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11019	acceptChannel
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	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11022	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11023	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11024	^ acceptChannel.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11025
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11026	"Created: / 12-11-2006 / 19:04:09 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11027	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11028
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11029	addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11030	^ self smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11031	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11032
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11033	addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11034	^ self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11035	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11036
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11037	enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11038
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11039	enablePasswordCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11040	self hasWindowMigrationServer ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11041	enablePasswordCheck := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11042	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11043	enablePasswordCheck := self windowMigrationEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11044	].
16164 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	^ enablePasswordCheck.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11049	listOfSmallTeamHosts
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	listOfSmallTeamHosts isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11052	listOfSmallTeamHosts := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11053	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
16164 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	^ listOfSmallTeamHosts.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11056
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11057	"Created: / 12-11-2006 / 19:06:35 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11058	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11059
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11060	listOfXMPPSmallTeamUsers
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	listOfXMPPSmallTeamUsers isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11063	listOfXMPPSmallTeamUsers := List new.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11064	listOfXMPPSmallTeamUsers onChangeSend:#updateModifiedChannel to:self.
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	^ listOfXMPPSmallTeamUsers.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11067	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11068
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11069	remoteBrowsingEnabled
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	remoteBrowsingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11072	remoteBrowsingEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11073	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11074	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11075	^ remoteBrowsingEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11076	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11077
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11078	removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11079	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11080	forLogical:self smallTeamServerEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11081	and:(BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11082	with:[:h \| h notEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11083	argument:self selectedSmallTeamHost)
16164 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	"Created: / 12-11-2006 / 19:01:42 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11086	"Modified: / 08-03-2007 / 23:02:36 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11087	!
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	removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11090	^ BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11091	forLogical:self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11092	and:(BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11093	with:[:h \| h notEmptyOrNil]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11094	argument:self selectedXMPPSmallTeamUser)
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11097	selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11098
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11099	selectedSmallTeamHost isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11100	selectedSmallTeamHost := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11101	selectedSmallTeamHost onChangeSend:#selectedSmallTeamHostChanged to:self.
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	^ selectedSmallTeamHost.
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	"Created: / 12-11-2006 / 19:11:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11106	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11107
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11108	selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11109
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11110	selectedXMPPSmallTeamUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11111	selectedXMPPSmallTeamUser := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11112	selectedXMPPSmallTeamUser onChangeSend:#selectedXMPPSmallTeamUserChanged to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11113	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11114	^ selectedXMPPSmallTeamUser.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11115	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11116
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11117	smallTeamHostEntry
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	smallTeamHostEntry isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11120	smallTeamHostEntry := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11121	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
16164 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	^ smallTeamHostEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11124
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11125	"Created: / 12-11-2006 / 19:07:06 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11126	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11127
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11128	smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11129	^ SmallTeam notNil.
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	"Created: / 12-11-2006 / 18:56:20 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11134	smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11135
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11136	smallTeamServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11137	smallTeamServerEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11138	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11139	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11140	^ smallTeamServerEnabled.
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	"Created: / 12-11-2006 / 18:56:11 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11145	smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11146	^ SmallTeam notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11147	and:[ JBCClient notNil and:[ SmallTeamXMPPRoboter notNil ] ].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11148	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11149
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11150	smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11151
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11152	smallTeamViaXMPPEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11153	smallTeamViaXMPPEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11154	smallTeamViaXMPPEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11155	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11156	^ smallTeamViaXMPPEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11157	!
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	smalltalkBridgeEnabled
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	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11162	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11163	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
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	^ smalltalkBridgeEnabled.
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	smalltalkBridgeVerbose
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	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11171	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11172	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
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	^ smalltalkBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11175	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11176
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11177	smallteamXMPPPassword
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	smallteamXMPPPassword isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11180	smallteamXMPPPassword := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11181	smallteamXMPPPassword onChangeSend:#updateModifiedChannel to:self.
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	^ smallteamXMPPPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11184	!
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	smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11187
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11188	smallteamXMPPServer isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11189	smallteamXMPPServer := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11190	smallteamXMPPServer onChangeSend:#updateModifiedChannel to:self.
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	^ smallteamXMPPServer.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11193	!
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	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11196
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11197	smallteamXMPPUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11198	smallteamXMPPUser := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11199	smallteamXMPPUser onChangeSend:#updateModifiedChannel to:self.
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	^ smallteamXMPPUser.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11202	!
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	windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11205
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11206	windowMigrationAuthenticate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11207	windowMigrationAuthenticate := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11208	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
16164 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	^ windowMigrationAuthenticate.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11211	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11212
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11213	windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11214
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11215	windowMigrationEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11216	windowMigrationEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11217	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
16164 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	^ windowMigrationEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11220	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11221
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11222	windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11223
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11224	windowMigrationPassword isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11225	windowMigrationPassword := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11226	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
16164 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	^ windowMigrationPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11229	!
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	xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11232
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11233	xmppSmallTeamUserEntry isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11234	xmppSmallTeamUserEntry := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11235	xmppSmallTeamUserEntry onChangeSend:#updateModifiedChannel to:self.
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	^ xmppSmallTeamUserEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11238	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11239
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11240	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'change & update'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11241
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11242	selectedSmallTeamHostChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11243	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11244	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
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	"Created: / 12-11-2006 / 19:09:49 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11247	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11248
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11249	selectedXMPPSmallTeamUserChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11250	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11251	self xmppSmallTeamUserEntry value:( self selectedXMPPSmallTeamUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11252	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11253
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11254	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help'!
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	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11257	^ 'Launcher/communicationsSettings.html'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11258	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11259
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11260	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help specs'!
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11261
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11262	helpTextForKey:aKey
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11263	\|normalText hasWindowMigrationServer\|
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11264
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11265	hasWindowMigrationServer := self hasWindowMigrationServer.
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11266
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11267	normalText := super helpTextForKey:aKey.
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11268	aKey == #windowMigration ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11269	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11270	^ normalText , (resources stringWithCRs:'\\Disabled because the windowMigration package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11271	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11272	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11273	aKey == #remoteBrowsing ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11274	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11275	^ normalText , (resources stringWithCRs:'\\Disabled because the remoteBrowsing package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11276	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11277	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11278	(#(smallTeamCommon
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11279	smallTeam smallTeamHosts
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11280	addSmallTeamHost removeSmallTeamHost
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11281	smallTeamViaXMPP
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11282	xmppServer xmppLoginUser xmppLoginPassword
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11283	smallTeamXMPPUsers smallTeamXMPPUserToAdd
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11284	addSmallTeamXMPPUser removeSmallTeamXMPPUser
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11285	) includes:aKey) ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11286	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11287	^ normalText , (resources stringWithCRs:'\\Disabled because the smallTeam package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11288	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11289	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11290	^ normalText
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11291	! !
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11292
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11293	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'initialization & release'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11294
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11295	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11296	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11297
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11298	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11299	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11300
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11301	"Modified: / 08-02-2017 / 00:30:03 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11302	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11303
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11304	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'queries'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11305
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11306	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11307
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11308	^ SmalltalkShareServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11309	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11310
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11311	hasUnsavedChanges
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11312	(super hasUnsavedChanges) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11313	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11314	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11315	(self smallTeamServerAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11316	self smallTeamServerEnabled value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11317	~= (SmallTeam isLoaded and:[ SmallTeam serverRunning ]) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11318	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11319	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11320	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11321	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11322	(self smallTeamViaXMPPAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11323	self smallTeamViaXMPPEnabled value ~= (SmallTeamXMPPRoboter isLoaded
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11324	and:[ SmallTeamXMPPRoboter serverRunning ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11325	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11326	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11327	self listOfXMPPSmallTeamUsers asSet
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11328	~= ((SmallTeamXMPPRoboter listOfXMPPUsers ? #()) asSet) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11329	self smallteamXMPPServer value ~= (currentUserPrefs smallteamXMPPServer) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11330	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11331	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11332	self smallteamXMPPUser value ~= (currentUserPrefs smallteamXMPPUser) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11333	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11334	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11335	self smallteamXMPPPassword value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11336	~= (currentUserPrefs smallteamXMPPPassword) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11337	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11338	(self hasRemoteBrowsingSupport and:[ SmalltalkShareServer isLoaded ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11339	self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11340	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11341	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11342	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11343	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11344	WindowMigrationServer isLoaded ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11345	self windowMigrationEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11346	WindowMigrationServer autoload.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11347	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11348	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11349	(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11350	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11351	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11352	(self windowMigrationPassword value ~= WindowMigrationServer password) 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	(self windowMigrationAuthenticate value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11356	~= self windowMigrationPassword value notNil) ifTrue:[ ^ true ].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11357	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11358	^ false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11359
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11360	"Modified: / 20-09-2007 / 16:04:56 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11361	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11362
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11363	hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11364
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11365	^ WindowMigrationServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11366	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11367
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11368	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'user actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11369
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11370	addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11371	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11372
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11373	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11374
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11375	host := self smallTeamHostEntry value.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11376
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11377	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11378	self listOfSmallTeamHosts add:host
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11379	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11380
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11381	"Modified (format): / 17-02-2017 / 08:33:52 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11382	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11383
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11384	removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11385	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11386
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11387	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11388
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11389	host := self selectedSmallTeamHost value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11390
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11391	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11392	self selectedSmallTeamHost value:nil.
17939 128b51c94f39 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17904 diff changeset	11393	self listOfSmallTeamHosts remove:host ifAbsent:[ self beep ].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11394	self smallTeamHostEntry value:''.
16164 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
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11397	"Modified: / 17-02-2017 / 08:33:29 / cg"
16164 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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11400	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11401
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11402	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11403	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11404
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11405	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11406	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11407
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11408	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11409
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11410	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11411	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11412	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11413
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11414	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11415	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11416
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11417	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11418	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11419	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11420	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11421	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11422
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11423	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11424
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	11425	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11426	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11427	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11428	window:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11429	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11430	label: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11431	name: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11432	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11433	bounds: (Rectangle 0 0 600 550)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11434	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11435	component:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11436	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11437	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11438	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11439	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11440	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	11441	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11442	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11443	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11444	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11445	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11446	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11447	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11448	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11449	label: 'ACSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11450	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11451	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11452	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11453	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11454	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11455	name: 'Box1a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11456	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11457	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11458	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11459	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11460	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11461	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11462	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11463	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11464	model: osiACSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11465	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11466	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11467	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11468
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11469	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11470	extent: (Point 600 27)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11471	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11472	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11473	name: 'Box1b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11474	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11475	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11476	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11477	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11478	label: 'Log Connections'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11479	name: 'CheckBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11480	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11481	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11482	model: osiACSEConnectionLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11483	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11484	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11485	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11486
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11487	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11488	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11489	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11490	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11491	name: 'Box1c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11492	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11493	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11494	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11495	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11496	label: 'Log Data Transfer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11497	name: 'CheckBox14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11498	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11499	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11500	model: osiACSEDataLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11501	translateLabel: true
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
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11505	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11506	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11507	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11508	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11509	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11510	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11511	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11512	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11513	label: 'ROSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11514	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11515	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11516	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11517	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11518	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11519	name: 'Box4a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11520	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11521	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11522	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11523	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11524	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11525	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11526	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11527	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11528	model: osiROSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11529	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11530	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11531	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11532
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11533	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11534	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11535	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11536	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11537	name: 'Box4b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11538	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11539	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11540	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11541	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11542	label: 'Log Invoactions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11543	name: 'CheckBox16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11544	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11545	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11546	model: osiROSEInvokationLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11547	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11548	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11549	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11550
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11551	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11552	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11553	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11554	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11555	name: 'Box4c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11556	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11557	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11558	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11559	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11560	label: 'Log Responses'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11561	name: 'CheckBox20'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11562	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11563	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11564	model: osiROSEResponseLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11565	translateLabel: true
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
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11569	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11570	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11571	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11572	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11573	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11574	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11575	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11576	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11577	label: 'CMISE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11578	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11579	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11580	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11581	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11582	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11583	name: 'Box7a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11584	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11585	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11586	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11587	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11588	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11589	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11590	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11591	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11592	model: osiCMISEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11593	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11594	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11595	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11596
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11597	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11598	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11599	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11600	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11601	name: 'Box7b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11602	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11603	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11604	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11605	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11606	label: 'Log Messages'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11607	name: 'CheckBox22'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11608	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11609	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11610	model: osiCMISEMessageLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11611	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11612	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11613	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11614
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11615	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11616	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11617	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11618	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11619
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11620	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11621	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11622	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11623
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11624	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11625	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11626	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11627
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11628	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11629
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11630	basicReadSettings
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11631	self updateOSIPackagePresentHolders.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11632	self osiACSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11633	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11634	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11635	self osiACSEDataLogging value:OSI::ACSE dataLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11636	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11637	self osiROSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11638	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11639	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11640	self osiROSEResponseLogging value:OSI::ROSE responseLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11641	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11642	self osiCMISEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11643	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11644	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11645	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11646	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11647
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11648	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11649
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11650	self osiACSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11651	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11652	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11653	OSI::ACSE dataLogging:self osiACSEDataLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11654	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11655	self osiROSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11656	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11657	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11658	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11659	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11660	self osiCMISEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11661	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11662	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11663	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11664	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11665
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11666	updateOSIPackagePresentHolders
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11667	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11668	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11669	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11670	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11671
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11672	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11673
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11674	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11675	osiACSEConnectionLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11676	osiACSEConnectionLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11677	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11678	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11679	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11680
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11681	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11682
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11683	osiACSEDataLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11684	osiACSEDataLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11685	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11686	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11687	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11688
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11689	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11690	osiACSEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11691	osiACSEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11692	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11693	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11694	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11695
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11696	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11697	osiACSEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11698	osiACSEPresent := OSI::ACSE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11699	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11700	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11701	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11702
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11703	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11704	osiCMISEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11705	osiCMISEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11706	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11707	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11708	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11709
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11710	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11711	osiCMISEMessageLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11712	osiCMISEMessageLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11713	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11714	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11715	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11716
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11717	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11718	osiCMISEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11719	osiCMISEPresent := OSI::CMISE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11720	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11721	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11722	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11723
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11724	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11725	osiROSEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11726	osiROSEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11727	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11728	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11729	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11731	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11732	osiROSEInvokationLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11733	osiROSEInvokationLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11734	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11735	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11736	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11737
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11738	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11739
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11740	osiROSEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11741	osiROSEPresent := OSI::ROSE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11742	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11743	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11744	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11745
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11746	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11747
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11748	osiROSEResponseLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11749	osiROSEResponseLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11750	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11751	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11752	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11753
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11754	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11755
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11756	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11757	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11758	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11759
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11760	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11761
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11762	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11763	self updateOSIPackagePresentHolders.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11764
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11765	(self osiACSEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11766	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11767	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11768	or:[ self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11769	or:[ self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11770
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11771	(self osiROSEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11772	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11773	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11774	or:[ self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11775	or:[ self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]) ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11776
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11777	(self osiCMISEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11778	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11779	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11780	or:[ self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]])ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11781
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11782	^ false.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11783	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11784
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11785	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'image specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11786
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11787	defaultIcon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11788	<resource: #programImage>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11789
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11790	^ ToolbarIconLibrary packageOpen24x24Icon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11791	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11792
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11793	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'interface specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11794
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11795	windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11796	"This resource specification was automatically generated
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11797	by the UIPainter of ST/X."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11798
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11799	"Do not manually edit this!! If it is corrupted,
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11800	the UIPainter may not be able to read the specification."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11801
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11802	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11803	UIPainter new openOnClass:AbstractSettingsApplication::PackagePathSettingsAppl andSelector:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11804	AbstractSettingsApplication::PackagePathSettingsAppl new openInterface:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11805	AbstractSettingsApplication::PackagePathSettingsAppl open
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11806	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11807
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11808	<resource: #canvas>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11809
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11810	^
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11811	#(FullSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11812	name: windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11813	window:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11814	(WindowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11815	label: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11816	name: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11817	min: (Point 10 10)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11818	bounds: (Rectangle 0 0 659 287)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11819	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11820	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11821	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11822	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11823	(FramedBoxSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11824	label: 'Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11825	name: 'FramedBox1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11826	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11827	labelPosition: topLeft
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11828	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11829	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11830	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11831	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11832	(LabelSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11833	label: 'Folders in Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11834	name: 'Label1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11835	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	11836	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11837	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11838	(SequenceViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11839	name: 'List1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11840	layout: (LayoutFrame 0 0 40 0 0 1 -40 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11841	model: selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11842	hasHorizontalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11843	hasVerticalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11844	useIndex: false
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11845	sequenceList: listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11846	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11847	(HorizontalPanelViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11848	name: 'HorizontalPanel1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11849	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	11850	horizontalLayout: right
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11851	verticalLayout: center
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11852	horizontalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11853	verticalSpace: 3
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	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11858	label: 'Add...'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11859	name: 'Button1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11860	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11861	model: addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11862	extent: (Point 93 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11863	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11864	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11865	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11866	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11867	label: 'Remove Selected'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11868	name: 'Button2'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11869	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11870	model: removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11871	extent: (Point 144 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11872	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11873	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11874	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11875	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11876
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11877	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11878	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11879	)
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	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11882	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11883	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11884
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11885	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11886	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11887	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11888
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11889	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'actions'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11890
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11891	addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11892	\|folder\|
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11893
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11894	folder := Dialog requestDirectoryName:'Additional Folder with Packages:'.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11895	folder isEmptyOrNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11896	(self listOfFoldersInPath includes:folder) ifFalse:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11897	self listOfFoldersInPath add:folder.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11898	self updateModifiedChannel.
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	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11901
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11902	basicReadSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11903	self listOfFoldersInPath contents:(Smalltalk packagePath).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11904	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11905
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11906	basicSaveSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11907	Smalltalk packagePath:(self listOfFoldersInPath asOrderedCollection).
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	removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11911	self listOfFoldersInPath remove:(self selectedFolder value) ifAbsent:[].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11912	self updateModifiedChannel.
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	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'aspects'!
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	aspects
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	listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11923	listOfFoldersInPath isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11924	listOfFoldersInPath := List new.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11925	listOfFoldersInPath addAll:Smalltalk packagePath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11926	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11927	^ listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11928	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11929
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11930	selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11931	selectedFolder isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11932	selectedFolder := nil asValue.
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	^ selectedFolder
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
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11937	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'help'!
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	helpFilename
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11940	^ 'Launcher/packagePathSettings.html'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11941	! !
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	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'queries'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11944
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11945	hasUnsavedChanges
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11946	self listOfFoldersInPath asOrderedCollection ~= Smalltalk packagePath asOrderedCollection ifTrue:[^ true].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11947	^ false.
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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11950	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11951
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11952	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11953	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11954
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11955	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11956	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11957
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11958	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11959
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11960	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11961	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11962	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11964	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11965	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11966
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11967	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11968	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11969	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11970	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11971	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11973	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11974
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	11975	^
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	11976	#(FullSpec
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	11977	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	11978	window:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	11979	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11980	label: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11981	name: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11982	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11983	min: (Point 10 10)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	11984	bounds: (Rectangle 0 0 601 474)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	11985	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	11986	component:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	11987	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11988	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11989	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11990	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11991	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	11992	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11993	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11994	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11995	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	11996	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11997	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11998	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11999	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12000	name: 'PrinterSelectBox'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12001	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12002	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12003	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12004	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12005	label: 'Printer Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12006	name: 'PrinterTypeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12007	layout: (LayoutFrame 0 0 5 0 181 0 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12008	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12009	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12010	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12011	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12012	name: 'PrinterTypeComboList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12013	layout: (LayoutFrame 183 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12014	model: printerTypeSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12015	comboList: printerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12016	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12017	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12018	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12019	label: 'Print Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12020	name: 'PrinterCommandLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12021	layout: (LayoutFrame 0 0 38 0 181 0 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12022	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12023	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12024	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12025	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12026	(ComboBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12027	name: 'CommandComboBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12028	layout: (LayoutFrame 183 0 38 0 -5 1 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12029	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12030	enableChannel: printCommandEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12031	model: printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12032	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12033	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12034	comboList: printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12035	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12036	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12037	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12038	label: 'Print to File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12039	name: 'PrinterFileLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12040	layout: (LayoutFrame 0 0 71 0 181 0 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12041	visibilityChannel: printerSupportsPrintingToFile
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	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12046	name: 'PrinterFileEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12047	layout: (LayoutFrame 183 0 71 0 -5 1 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12048	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12049	model: printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12050	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12051	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12052	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12053	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12054	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12055	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12056
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12057	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12058	extent: (Point 601 108)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12059	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12060	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12061	name: 'FormatBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12062	visibilityChannel: supportsPageFormatSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12063	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12064	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12065	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12066	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12067	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12068	layout: (LayoutFrame 0 0 4 0 0 1 7 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12069	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12070	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12071	label: 'Page Format:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12072	name: 'PageFormatLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12073	layout: (LayoutFrame 0 0 11 0 181 0 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12074	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12075	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12076	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12077	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12078	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12079	name: 'PageFormatPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12080	layout: (LayoutFrame 183 0 11 0 333 0 41 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12081	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12082	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12083	model: pageFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12084	enableChannel: enableFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12085	menu: pageFormatList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12086	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12087	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12088	label: 'Landscape'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12089	name: 'LandscapeCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12090	layout: (LayoutFrame 380 0 11 0 -5 1 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12091	enableChannel: enablelandscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12092	model: landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12093	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12094	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12095	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12096
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12097	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12098	extent: (Point 601 43)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12099	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12100	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12101	name: 'MarginBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12102	visibilityChannel: supportsMarginSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12103	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12104	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12105	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12106	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12107	name: 'Separator5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12108	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12109	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12110	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12111	name: 'VerticalPanel2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12112	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	12113	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12114	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12115	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12116	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12117	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12118	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12119	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12120	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12121	name: 'Box1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12122	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12123	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12124	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12125	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12126	label: 'Top Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12127	name: 'TopMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12128	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12129	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12130	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12131	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12132	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12133	name: 'TopMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12134	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12135	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12136	model: topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12137	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12138	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12139	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12140	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12141	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12142	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12143	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12144	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12145	name: 'PopUpList2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12146	layout: (LayoutFrame -155 1 0 0 -5 1 30 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12147	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12148	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12149	model: selectedUnit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12150	menu: unitList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12151	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12152	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12153	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12154
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12155	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12156	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12157	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12158	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12159	name: 'Box2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12160	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12161	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12162	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12163	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12164	label: 'Left Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12165	name: 'LeftMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12166	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12167	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12168	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12169	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12170	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12171	name: 'LeftMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12172	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12173	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12174	model: leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12175	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12176	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12177	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12178	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12179	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12180	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12181	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12182
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12183	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12184	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12185	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12186	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12187	name: 'Box3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12188	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12189	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12190	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12191	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12192	label: 'Right Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12193	name: 'RightMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12194	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12195	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12196	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12197	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12198	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12199	name: 'RightMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12200	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12201	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12202	model: rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12203	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12204	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12205	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12206	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12207	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12208	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12209	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12210
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12211	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12212	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12213	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12214	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12215	name: 'Box4'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12216	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12217	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12218	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12219	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12220	label: 'Bottom Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12221	name: 'BottomMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12222	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12223	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12224	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12225	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12226	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12227	name: 'BottomMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12228	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12229	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12230	model: bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12231	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12232	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12233	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12234	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12235	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12236	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12237	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12238
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12239	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12240	extent: (Point 601 32)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12241	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12242	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12243
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12244	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12245	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12246	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12247
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12248	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12249	extent: (Point 601 164)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12250	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12251	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12252	name: 'ColorBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12253	visibilityChannel: supportsColorSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12254	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12255	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12256	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12257	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12258	name: 'Separator6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12259	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12260	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12261	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12262	label: 'Color Printer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12263	name: 'ColorPrinterCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12264	layout: (LayoutFrame 183 0 4 0 782 0 34 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12265	enableChannel: enableColorBox
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12266	model: supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12267	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12268	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12269	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12270
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12271	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12272	extent: (Point 601 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12273	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12274	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12275
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12276	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12277	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12278	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12279
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12280	)
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12281	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12282	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12283
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12284	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12285
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12286	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12287	Printer notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12288	self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12289	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12290	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12291	topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12292	bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12293	leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12294	rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12295	landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12296	printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12297	printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12298	supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12299	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12300	from:Printer.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12301	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12302
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12303	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer ifAbsent:1).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12304	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12305	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12306
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12307	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12308	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12309
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12310	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12311
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12312	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12313
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12314	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12315	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12316
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12317	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12318	Printer pageFormat:(self pageFormat value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12319	Printer landscape:(self landscape value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12320	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12321	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12322	\| unit \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12323	self selectedUnit value == 2 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12324	unit := #mm
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12325	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12326	unit := #inch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12327	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12328	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12329	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12330	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12331	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	12332	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12333	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12334	Printer supportsColor:self supportsColor value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12335	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12336	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12337
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12338	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12339
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12340	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12342	bottomMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12343	bottomMargin := Printer bottomMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12344	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12345	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12346	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12347	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12348
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12349	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12350
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12351	enableColorBox isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12352	enableColorBox := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12353	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12354	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12355	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12356
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12357	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12358
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12359	enableFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12360	enableFormat := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12361	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12362	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12363	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12364
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12365	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12366
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12367	enableMargins isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12368	enableMargins := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12369	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12370	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12371	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12372
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12373	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12374
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12375	enablelandscape isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12376	enablelandscape := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12377	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12378	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12379	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12380
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12381	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12382
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12383	landscape isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12384	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12385	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12386	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12387	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12388
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12389	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12390	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12391
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12392	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12393
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12394	leftMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12395	leftMargin := Printer leftMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12396	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 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	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12399	!
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	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12403	pageFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12404	self pageFormatList notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12405	\| index \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12406	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12407	pageFormat := index asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12408	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12409	pageFormat := 1 asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12410	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12411	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12412	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12413	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12414	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12415	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12417	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12418
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12419	pageFormatList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12420	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12421	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12422	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12423
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12424	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12425	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12427	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12429	printCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12430	printCommand := Printer printCommand asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12431	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12432	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12433	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12434	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12435
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12436	printCommandEnabled
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12437	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12438	with:[:m \| m isEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12439	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12440
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12441	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12442	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12443
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12444	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12445
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12446	printCommandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12447	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12448	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12449	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12450	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12451
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12452	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12453	printFilename isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12454	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12455	printFilename onChangeSend:#updateModifiedChannel to:self
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12456	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12457	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12458
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12459	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12460	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12461
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12462	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12463	printerIsDrivenByCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12464	printerIsDrivenByCommand := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12465	with:[:m \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12466	\|printer\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12467
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12468	printer := self possiblePrinters at:m value ifAbsent:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12469	printer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12470	printer isDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12471	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12472	self breakPoint:#expecco.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12473	false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12474	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12475	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12476	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12477	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12478	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12479
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12480	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12481	"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	12482	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12483
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12484	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12485	printerSupportsPrintingToFile isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12486	printerSupportsPrintingToFile := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12487	with:[:m \| (self possiblePrinters at:m) supportsPrintingToFile ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12488	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12489	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12490	^ printerSupportsPrintingToFile.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12491
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12492	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12493	"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	12494	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12495
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12496	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12497	printerType isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12498	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12499	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12500	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12501	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12502
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12503	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12504	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12505
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12506	printerTypeSelection
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12507	\|printerIndex\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12509	printerTypeSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12510	printerIndex := self possiblePrinters identityIndexOf:Printer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12511	printerIndex == 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12512	self possiblePrinters isEmptyOrNil ifTrue:[self error:'no printer'].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12513	printerIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12514	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12515	printerTypeSelection := printerIndex asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12516
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12517	printerTypeSelection addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12518	printerTypeSelection changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12519	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12520	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12521	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12522
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12523	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12524	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12525
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12526	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12528	rightMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12529	rightMargin := Printer rightMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12530	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12531	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12532	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12533	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12535	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12537	selectedUnit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12538	selectedUnit := 1 asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12539	selectedUnit addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12540	selectedUnit changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12541	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12542	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12543	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12544	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12545
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12546	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12548	supportsColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12549	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12550	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12551	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12552	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12553
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12554	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12555	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12556
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12557	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12558	supportsColorSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12559	supportsColorSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12560	with:[:m \| (self possiblePrinters at:m) supportsColor ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12561	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12562	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12563	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12564
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12565	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12566	"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	12567	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12568
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12569	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12570	supportsMarginSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12571	supportsMarginSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12572	with:[:m \| (self possiblePrinters at:m) supportsMargins ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12573	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12574	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12575	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12576
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12577	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12578	"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	12579	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12580
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12581	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12582	supportsPageFormatSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12583	supportsPageFormatSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12584	with:[:m \| (self possiblePrinters at:m) supportsPageSizes ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12585	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12586	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12587	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12588
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12589	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12590	"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	12591	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12592
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12593	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12595	topMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12596	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12597	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12598	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12599	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12600
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12601	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12602	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12603
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12604	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12606	unitList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12607	unitList := #('inch' 'mm') asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12608	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12609	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12610	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12612	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12613
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12614	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12615	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12616
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12617	self printerType selectionIndex ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12618	p := self possiblePrinters at:(self printerType selectionIndex).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12619	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12620	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12621	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12622	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12623	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12624	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12625	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12627	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12628	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12629
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12630	self printerTypeSelection value ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12631	p := self possiblePrinters at:(self printerTypeSelection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12632	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12633	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12634	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12635	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12636	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12637	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12638	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12639	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12640	hasPageSize ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12641	self pageFormat value:(p pageFormat).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12642	self landscape value:(p landscape).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12643	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12644	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12646	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12647	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12648	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12649	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12650	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12651	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12652
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12653	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12654	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12655	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12656	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12657
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12658	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12659	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12660	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12661
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12662	p notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12663	\| newCommandList \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12664	newCommandList := p defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12665	newCommandList notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12666	self printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12667	contents:(newCommandList asList);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12668	changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12669	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12670	self printCommand value:(p printCommand).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12671	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12672	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12673	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12674	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12675	printerSupportsPostscript ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12676	self supportsColor value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12677	] ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12678	self supportsColor value:(Printer supportsColor).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12679	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12680
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12681	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12684	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12685	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12686
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12687	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12688	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12689	self printerTypeSelectionOrUnitListChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12690	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12691	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12693	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12694	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12695
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12696	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12697
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12698	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12699	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12700	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12701
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12702	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12703
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12704	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12705	commandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12706	commandList := resources string:'PRINT_COMMANDS' default:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12707	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12708	commandList := PrinterStream defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12709	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12710	commandList := #('lpr' 'lp').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12711	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12712	(commandList includes:self printCommand value) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12713	commandList := commandList copyWith:self printCommand value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12714	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12715	].
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12716	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12717	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12718	!
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	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12721	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12722
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12723	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12724
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12725	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12726	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12727	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12728	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12729	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12730	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12731
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12732	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12733
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12734	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12735	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12736
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12737	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12738	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12739	Printer landscape ~= (self landscape value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12740	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12741	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12742	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	12743	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	12744	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	12745	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	12746	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12747	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12748	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12749	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12750	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12751
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12752	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12753	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12754
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12755	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12756	possiblePrinters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12757	possiblePrinters := PrinterStream withAllSubclasses asArray.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12758	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12759	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12760	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12761
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12762	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12763
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12764	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12765	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12766	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12767
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12768	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12769	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12770
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12771	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12772	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12773	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12774
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12775	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12776
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12777	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12778
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12779	#dynamicPriorities
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12780	'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	12781
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12782	#preemptiveScheduling
16992 01cd10d0a65a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16989 diff changeset	12783	'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	12784
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12785	)
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12786	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12787
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12788	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12789
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12790	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12791	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12792	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12793
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12794	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12795	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12796
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12797	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12798	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12799	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12800	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12801	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12802
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12803	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12804
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12805	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12806	constantNamed:'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12807	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12808	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12809	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	12810	DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12811	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	12812	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	12813	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12814
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12815	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12816
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12817	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12818	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12819	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12820
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12821	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12822	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12823
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12824	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12825	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12826	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12827	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12828	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12829
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12830	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12831
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12832	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12833	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12834	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12835	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12836	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12837	label: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12838	name: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12839	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12840	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12841	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12842	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12843	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12844	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12845	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12846	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12847	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	12848	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12849	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12850	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12851	verticalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12852	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12853	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12854	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12855	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12856	label: 'Preemptive Scheduling'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12857	name: 'CheckBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12858	activeHelpKey: preemptiveScheduling
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12859	model: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12860	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12861	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12862	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12863	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12864	name: 'Box2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12865	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12866	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12867	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12868	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12869	label: 'Dynamic Priorities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12870	name: 'CheckBox12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12871	layout: (LayoutFrame 30 0.0 0 0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12872	activeHelpKey: dynamicPriorities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12873	enableChannel: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12874	model: dynamicPrios
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12875	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12876	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12877	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12878
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12879	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12880	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12881	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12882	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12883
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12884	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12885	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12886	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12887
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12888	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12889	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12890	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12891
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12892	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12893
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12894	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12895	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12896	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12897	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12898
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12899	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12900
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12901	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12902	self preemptive value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12903	Processor startTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12904	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12905	Processor stopTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12906	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12907	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12908	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12909	Processor supportDynamicPriorities:self dynamicPrios value
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12910	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12911	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12912
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12913	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12914
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12915	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12916	dynamicPrios isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12917	dynamicPrios := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12918	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12919	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12920	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12921	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12922
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12923	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12924	preemptive isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12925	preemptive := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12926	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12927	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12928	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12929	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12930
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12931	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12932
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12933	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12934	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12935	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12936
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12937	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12938
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12939	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12940	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12941	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12942	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12943	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12944
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12945	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'help specs'!
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12946
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12947	helpSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12948	"This resource specification was automatically generated
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12949	by the UIHelpTool of ST/X."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12950
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12951	"Do not manually edit this!! If it is corrupted,
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12952	the UIHelpTool may not be able to read the specification."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12953
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12954	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12955	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12956	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12957
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12958	<resource: #help>
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12959
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12960	^ super helpSpec addPairsFrom:#(
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12961
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12962	#rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12963	'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	12964
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12965	#rdoitSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12966	'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	12967
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12968	#scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12969	'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	12970
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12971	#scriptingSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12972	'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	12973	)
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12974	! !
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	12975
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12976	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12977
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12978	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12979	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12980	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12981
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12982	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12983	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12984
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12985	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12986	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12987	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12988	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12989	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12990
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12991	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12992
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12993	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12994	constantNamed:'AbstractSettingsApplication::RDoItServerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12995	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12996	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	12997	''#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	12998	!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12999	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	13000	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	13001	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13002
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13003	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13004
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13005	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13006	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13007	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13008
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13009	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13010	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13011
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13012	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13013	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13014	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13015	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13016	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13017
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13018	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13019
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13020	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13021	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13022	name: windowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13023	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13024	(WindowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13025	label: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13026	name: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13027	flags: 1
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13028	min: (Point 10 10)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13029	bounds: (Rectangle 0 0 601 535)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13030	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13031	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13032	(SpecCollection
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13033	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13034	(FramedBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13035	label: 'RDoIt'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13036	name: 'RDoItFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13037	layout: (LayoutFrame 0 0 0 0 0 1 232 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13038	activeHelpKey: rdoitSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13039	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13040	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13041	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13042	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13043	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13044	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13045	name: 'VerticalPanel2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13046	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	13047	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13048	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13049	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13050	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13051	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13052	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13053	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13054	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13055	name: 'Box1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13056	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13057	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13058	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13059	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13060	label: 'Remote doits enabled'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13061	name: 'CheckBox1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13062	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13063	enableChannel: hasRDoitServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13064	model: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13065	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13066	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13067	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13068
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13069	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13070	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13071	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13072	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13073	name: 'Box2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13074	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13075	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13076	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13077	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13078	label: 'Port/Path:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13079	name: 'Label2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13080	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13081	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13082	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13083	enableDisableColorChannel: rDoitsEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13084	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13085	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13086	name: 'EntryField1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13087	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13088	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13089	model: rDoitServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13090	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13091	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13092	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13093	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13094	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13095	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13096	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13097	name: 'Label3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13098	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
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	adjust: left
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13101	enableDisableColorChannel: rDoitsEnabled
16151 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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13104
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13105	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13106	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13107	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13108	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13109	name: 'Box13'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13110	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13111	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13112	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13113	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13114	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13115	name: 'CheckBox10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13116	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13117	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13118	model: rDoitEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13119	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13120	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13121	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13122
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13123	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13124	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13125	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13126	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13127	name: 'Box3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13128	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13129	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13130	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13131	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13132	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13133	name: 'CheckBox2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13134	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13135	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13136	model: rDoitErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13137	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13140
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13141	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13142	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13143	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13144	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13145	name: 'Box4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13146	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13147	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13148	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13149	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13150	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13151	name: 'CheckBox3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13152	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13153	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13154	model: rDoitLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13155	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13158
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13159	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13160	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13161	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13162	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13163	name: 'Box5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13164	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13165	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13166	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13167	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13168	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13169	name: 'CheckBox4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13170	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13171	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13172	model: rDoitErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13173	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13176
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13177	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13178	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13179	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13180	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13181
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13182	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13183	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13184	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13185
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13186	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13187	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13188	(FramedBoxSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13189	label: 'JavaScript/Smalltalk-Scripting via Telnet'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13190	name: 'ScriptingFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13191	layout: (LayoutFrame 0 0 224 0 0 1 460 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13192	activeHelpKey: scriptingSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13193	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13194	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13195	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13196	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13197	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13198	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13199	name: 'VerticalPanel3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13200	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	13201	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13202	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13203	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13204	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13205	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13206	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13207	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13208	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13209	name: 'Box6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13210	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13211	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13212	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13213	(CheckBoxSpec
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13214	label: 'Telnet Scripting enabled'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13215	name: 'CheckBox5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13216	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13217	enableChannel: hasScriptingServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13218	model: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13219	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13220	)
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
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13223	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13224	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13225	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13226	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13227	name: 'Box12'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13228	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13229	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13230	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13231	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13232	label: 'Port:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13233	name: 'Label4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13234	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13235	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13236	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13237	enableDisableColorChannel: scriptingEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13238	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13239	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13240	name: 'EntryField2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13241	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13242	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13243	model: scriptingServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13244	isReadOnly: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13245	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13246	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13247	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13248	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13249	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13250	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13251	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13252	name: 'Label5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13253	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13254	initiallyInvisible: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13255	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13256	adjust: left
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13257	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13258	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13259
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13260	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13261	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13262	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13263	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13264	name: 'Box11'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13265	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13266	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13267	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13268	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13269	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13270	name: 'CheckBox9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13271	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13272	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13273	model: scriptingEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13274	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13275	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13276	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13277
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13278	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13279	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13280	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13281	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13282	name: 'Box8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13283	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13284	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13285	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13286	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13287	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13288	name: 'CheckBox6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13289	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13290	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13291	model: scriptingErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13292	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13293	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13294	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13295
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13296	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13297	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13298	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13299	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13300	name: 'Box9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13301	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13302	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13303	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13304	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13305	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13306	name: 'CheckBox7'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13307	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13308	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13309	model: scriptingLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13310	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13311	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13312	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13313
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13314	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13315	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13316	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13317	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13318	name: 'Box10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13319	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13320	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13321	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13322	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13323	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13324	name: 'CheckBox8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13325	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13326	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13327	model: scriptingErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13328	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13329	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13330	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13331
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13332	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13333	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13334	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13335	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13336
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13337	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13338	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13339	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13340
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13341	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13342	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13343	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13344
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13345	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13346	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13347	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13348
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13349	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13350
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13351	basicReadSettings
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13352	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13353	rDoitEnabledOnlyViaLocalConnection
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13354	scriptingEnabled scriptingEnabledOnlyViaLocalConnection scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13355	scriptingErrorLogging scriptingErrorDebugging\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13356
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13357	rDoitsEnabled := false.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13358	rDoitLogging := false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13359	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13360	rDoitErrorDebugging := false.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13361	rDoitServerPortOrPath := ''.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13362	rDoitEnabledOnlyViaLocalConnection := true.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13363
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13364	scriptingEnabled := false.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13365	scriptingEnabledOnlyViaLocalConnection := true.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13366
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13367	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13368	rDoitsEnabled := RDoItServer serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13369	rDoitEnabledOnlyViaLocalConnection := RDoItServer localConnectionsOnly.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13370	rDoitLogging := RDoItServer isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13371	rDoitErrorLogging := RDoItServer isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13372	rDoitErrorDebugging := RDoItServer isErrorCatching not.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13373	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath asString.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13374	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13375
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13376	(STXScriptingServer notNil
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13377	and:[ STXScriptingServer isLoaded ]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13378	scriptingEnabled := STXScriptingServer serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13379	scriptingEnabledOnlyViaLocalConnection := STXScriptingServer localConnectionsOnly.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13380	scriptingLogging := STXScriptingServer isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13381	scriptingErrorLogging := STXScriptingServer isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13382	scriptingErrorDebugging := STXScriptingServer isErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13383	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13384
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13385	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13386	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13387	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13388	self rDoitErrorDebugging value:rDoitErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13389	self rDoitServerPortOrPath value:rDoitServerPortOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13390
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13391	self scriptingEnabled value:scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13392	self scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13393	self scriptingLogging value:scriptingLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13394	self scriptingErrorLogging value:scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13395	self scriptingErrorDebugging value:scriptingErrorDebugging.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13396
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13397	"Modified: / 20-05-2010 / 14:49:50 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13398	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13399
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13400	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13401	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13402
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13403	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13404
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13405	self hasRDoitServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13406	RDoItServer defaultPortNumberOrPath:portOrPath.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13407	RDoItServer logging:self rDoitLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13408	RDoItServer errorLogging:self rDoitErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13409	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13410	RDoItServer localConnectionsOnly:(self rDoitEnabledOnlyViaLocalConnection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13411	shouldRun := self rDoitsEnabled value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13412	shouldRun ~~ RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13413	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13414	RDoItServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13415	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13416	RDoItServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13417	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13418	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13419	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13420	RDoItServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13421	self warn:'RDoit startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13422	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13423	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13424	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13425	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13426
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13427	self hasScriptingServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13428	STXScriptingServer logging:self scriptingLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13429	STXScriptingServer errorLogging:self scriptingErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13430	STXScriptingServer errorDebugging:(self scriptingErrorDebugging value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13431	STXScriptingServer localConnectionsOnly:(self scriptingEnabledOnlyViaLocalConnection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13432	shouldRun := self scriptingEnabled value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13433	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13434	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13435	STXScriptingServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13436	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13437	STXScriptingServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13438	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13439	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13440	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13441	STXScriptingServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13442	self warn:'STXScripting startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13443	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13444	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13445	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13446	].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13447
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13448	"Modified: / 20-05-2010 / 14:50:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13449	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13450
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13451	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13452	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13453
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13454	portOrPath := self rDoitServerPortOrPath value.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13455	portOrPath isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13456	"a numeric string means it is a TCP port number"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13457	nrOrNil := Integer readFrom:portOrPath onError:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13458	nrOrNil notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13459	portOrPath := nrOrNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13460	]
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13461	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13462	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13463	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13464
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13465	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13466
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13467	rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13468	rDoitEnabledOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13469	rDoitEnabledOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13470	rDoitEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13471	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13472	^ rDoitEnabledOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13473
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13474	"Created: / 20-05-2010 / 12:15:12 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13475	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13476
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13477	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13478	rDoitErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13479	rDoitErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13480	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13481	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13482	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13483	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13484
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13485	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13486	rDoitErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13487	rDoitErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13488	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13489	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13490	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13491	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13492
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13493	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13494	rDoitLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13495	rDoitLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13496	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13497	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13498	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13499	!
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	rDoitOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13502	rDoitOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13503	rDoitOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13504	rDoitOnlyViaLocalConnection 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	^ rDoitOnlyViaLocalConnection.
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:14:50 / 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
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13511	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13512	rDoitServerPortOrPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13513	rDoitServerPortOrPath := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13514	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	13515	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13516	^ rDoitServerPortOrPath.
4310 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	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13520	rDoitsEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13521	rDoitsEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13522	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13523	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13524	^ rDoitsEnabled.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13525	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13526
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13527	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13528	scriptingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13529	scriptingEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13530	scriptingEnabled onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13531	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13532	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13533	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13534
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13535	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13536	scriptingEnabledOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13537	scriptingEnabledOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13538	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13539	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13540	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13541	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13542
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13543	scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13544	scriptingErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13545	scriptingErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13546	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13547	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13548	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13549	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13550
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13551	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13552	scriptingErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13553	scriptingErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13554	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13555	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13556	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13557	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13558
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13559	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13560	scriptingLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13561	scriptingLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13562	scriptingLogging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13563	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13564	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13565	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13566
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13567	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13568	<resource: #uiAspect>
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13569
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13570	scriptingServerPortOrPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13571	STXScriptingServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13572	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13573	].
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13574	].
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13575	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13576	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13577
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13578	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13579
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13580	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13581	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13582	self rDoitsEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13583	RDoItServer autoload.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13584	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13585	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13586	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13587	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13588	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13589
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13590	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13591
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13592	helpFilename
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13593	^ 'Launcher/communicationsSettings.html'
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13594	!
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13595
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13596	helpTextForKey:aKey
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13597	\|usedKey\|
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13598
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13599	usedKey := aKey.
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13600	usedKey == #rdoitSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13601	self hasRDoitServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13602	usedKey := #rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13603	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13604	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13605	usedKey == #scriptingSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13606	self hasScriptingServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13607	usedKey := #scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13608	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13609	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13610	^ super helpTextForKey:usedKey.
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13611	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13612
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13613	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13614
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13615	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13616	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13617	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13618
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13619	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13620	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13621	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13622
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13623	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13624	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13625	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13626
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13627	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13628	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13629	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13630
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13631	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13632	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13633	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13634	RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13635	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13636	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13637	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13638	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13639	self rDoitEnabledOnlyViaLocalConnection value ~= RDoItServer localConnectionsOnly ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13640	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13641	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13642	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13643	self scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13644	STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13645	self scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13646	self scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13647	self scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13648	self scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13649	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13650	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13651	^ false
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13652
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13653	"Modified: / 20-05-2010 / 14:48:52 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13654	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13655
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13656	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13657
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13658	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13659	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13660	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13661
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13662	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13663	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13664
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13665	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13666	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13667	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13668
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13669	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13670
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13671	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13672
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13673	#sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13674	'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	13675
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13676	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13677	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13678
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13679	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13680
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13681	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13682	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13683	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13684
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13685	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13686	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13687
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13688	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13689	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13690	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13691	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13692	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13693
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13694	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13695
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13696	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13697	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13698	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	13699	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13700	@@@@@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	13701	@@@@@@@@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	13702	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	13703	@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	13704	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	13705	@@@@@@@@@@@@@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	13706	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13707
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13708	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13709	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13710	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13711
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13712	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13713	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13714
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13715	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13716	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13717	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13718	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13719	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13720
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13721	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13722
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13723	^Icon
17690 9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13724	constantNamed:'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon2'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13725	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	13726	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13727	@@@@@@@@@@@@@@@@@@@@!!!!"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	13728	"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	13729	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	13730	@@@@@@@@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	13731	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	13732	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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	13733
9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13734	"Modified: / 13-09-2017 / 18:34:43 / cg"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13735	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13736
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13737	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13738	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13739
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13740	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13741	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13742	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13743
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13744	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13745
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13746	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13747	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13748	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13749
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13750	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13751	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13752
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13753	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13754	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13755	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13756	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13757	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13758
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13759	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13760
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13761	^
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13762	#(FullSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13763	name: windowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13764	window:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13765	(WindowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13766	label: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13767	name: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13768	min: (Point 10 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13769	bounds: (Rectangle 0 0 600 550)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13770	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13771	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13772	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13773	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13774	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13775	activeHelpKey: #sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13776	name: 'VerticalPanel2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13777	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	13778	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13779	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13780	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13781	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13782	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13783	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13784	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13785	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13786	name: 'EnableBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13787	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13788	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13789	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13790	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13791	label: 'SQL Server Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13792	name: 'EnableCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13793	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13794	enableChannel: hasSQLServerClass
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13795	model: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13796	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13797	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13798	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13799
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13800	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13801	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13802	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13803	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13804	name: 'PortBox'
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	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13809	label: 'MySQL Port:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13810	name: 'Label2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13811	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13812	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13813	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13814	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13815	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13816	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13817	name: 'EntryField1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13818	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13819	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13820	model: sqlServerPort
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13821	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13822	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13823	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13824	acceptOnPointerLeave: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13825	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13826	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13827	label: 'MySQL Port-Number (ODBC)'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13828	name: 'Label3'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13829	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
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	adjust: left
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13832	enableDisableColorChannel: sqlServerEnabled
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
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	extent: (Point 600 72)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13838	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13839	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13840	name: 'LogErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13841	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13842	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13843	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13844	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13845	label: 'Log Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13846	name: 'ErrorLoggingCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13847	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13848	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13849	model: sqlErrorLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13850	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13851	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13852	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13853
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13854	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13855	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13856	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13857	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13858	name: 'LogDataBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13859	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13860	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13861	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13862	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13863	label: 'Log Data'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13864	name: 'LogDataCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13865	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13866	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13867	model: sqlDataLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13868	translateLabel: true
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
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	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13874	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13875	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13876	name: 'LogRequestsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13877	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13878	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13879	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13880	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13881	label: 'Log Requests'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13882	name: 'LogRequestsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13883	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13884	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13885	model: sqlLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13886	translateLabel: true
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
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	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13892	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13893	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13894	name: 'LogSQLBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13895	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13896	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13897	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13898	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13899	label: 'Log SQL'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13900	name: 'CheckBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13901	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13902	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13903	model: sqlStatementLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13904	translateLabel: true
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
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	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13910	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13911	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13912	name: 'DebugErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13913	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13914	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13915	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13916	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13917	label: 'Debug Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13918	name: 'DebugErrorsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13919	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13920	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13921	model: sqlErrorDebugging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13922	translateLabel: true
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
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	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13928	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13929	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13930	name: 'Box1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13931	extent: (Point 600 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13932	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13933	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13934	name: 'EnableSmalltalkBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13935	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13936	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13937	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13938	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13939	label: 'Virtual Smalltalk Tables Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13940	name: 'EnableSmalltalkCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13941	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13942	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13943	model: sqlSmalltalkServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13944	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13945	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13946	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13947
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13948	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13949	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13950	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13951	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13952
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13953	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13954	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13955	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13956
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	)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13959	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13960
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13961	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13962
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13963	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13964	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13965
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13966	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13967	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13968	self sqlServerEnabled value:sqlServerClass serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13969	self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13970	self sqlLogging value:sqlServerClass isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13971	self sqlStatementLogging value:sqlServerClass isSQLLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13972	self sqlErrorLogging value:sqlServerClass isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13973	self sqlDataLogging value:sqlServerClass isDataLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13974	self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13975	self sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13976	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13977	self sqlServerEnabled value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13978	self sqlSmalltalkServerEnabled value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13979	self sqlLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13980	self sqlStatementLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13981	self sqlErrorLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13982	self sqlDataLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13983	self sqlErrorDebugging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13984	self sqlServerPort value:nil
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13985	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13986
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13987	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13988	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13989
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13990	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13991	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13992
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	13993	sqlServerClass := self sqlServerClass.
6427 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	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13996	port isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13997	port := port asInteger.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13998	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13999
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14000	sqlServerClass defaultPort:port.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14001	sqlServerClass logging:self sqlLogging value.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14002	sqlServerClass sqlLogging:self sqlStatementLogging value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14003	sqlServerClass errorLogging:self sqlErrorLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14004	sqlServerClass dataLogging:self sqlDataLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14005	sqlServerClass errorCatching:(self sqlErrorDebugging value not).
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14006	sqlServerClass smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14007
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14008	shouldRun := self sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14009	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14010	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14011	sqlServerClass stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14012	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14013	sqlServerClass start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14014	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14015	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14016	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14017	sqlServerClass serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14018	self warn:'SQLServer startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14019	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14020	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14021	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14022
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14023	"Modified: / 25-01-2007 / 17:41:20 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14024	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14025
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14026	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14027
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14028	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14029	sqlDataLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14030	sqlDataLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14031	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14032	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14033	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14034	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14035
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14036	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14037	sqlErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14038	sqlErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14039	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14040	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14041	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14042	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14043
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14044	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14045	sqlErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14046	sqlErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14047	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14048	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14049	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14050	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14051
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14052	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14053	sqlLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14054	sqlLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14055	sqlLogging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14056	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14057	^ sqlLogging.
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	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14061	sqlServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14062	sqlServerEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14063	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14064	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14065	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14066	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14067
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14068	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14069	sqlServerPort isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14070	sqlServerPort := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14071	sqlServerPort onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14072	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14073	^ sqlServerPort.
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14076	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14077	sqlSmalltalkServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14078	sqlSmalltalkServerEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14079	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14080	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14081	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14082	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14083
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14084	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14085	sqlStatementLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14086	sqlStatementLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14087	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14088	].
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14089	^ sqlStatementLogging.
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14092	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
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	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14095	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14096	self sqlServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14097	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14098	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14099	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14100	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14101
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14102	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14103	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14104
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14105	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14106	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14107	self sqlSmalltalkServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14108	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14109	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14110	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14111	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14112
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14113	"Modified: / 25-01-2007 / 17:40:03 / cg"
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
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14116	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14117
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14118	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14119	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14120	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14121
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14122	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14123
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14124	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14125	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14126
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14127	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14128	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14129
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14130	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14131	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14132
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14133	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14134	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
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	self sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14137	sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14138	self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14139	self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14140	self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14141	self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14142	self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14143	self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14144	self sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14145	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14146	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14147
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14148	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14149	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14150
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14151	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14152	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14153
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14154	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14155	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14156
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14157	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14158
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14159	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14160	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14161	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14162
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14163	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14164
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14165	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14166	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14167
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14168	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14169
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14170	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14171	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14172
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14173	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14174
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14175	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14176	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14177
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14178	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14179	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14180	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14181
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14182	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14183	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14184
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14185	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14186	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14187	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14188	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14189	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14190
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14191	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14192
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14193	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14194	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14195	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	14196	@@@@@@@@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	14197	CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14198	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	14199	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	14200	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14201
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14202	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14203	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14204	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14205
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14206	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14207	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14208
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14209	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14210	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14211	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14212	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14213	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14214
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14215	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14216
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14217	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14218	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14219	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	14220	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	14221	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	14222	@@@@@@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	14223	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	14224	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	14225	@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	14226	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	14227	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14228
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14229	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14230	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14231	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14232
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14233	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14234	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14235
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14236	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14237	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14238	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14239	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14240	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14241
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14242	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14243
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14244	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14245	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14246	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	14247	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	14248	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	14249	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	14250	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	14251	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	14252	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	14253	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	14254	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14255
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14256	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14257	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14258	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14259
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14260	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14261	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14262
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14263	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14264	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14265	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14266	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14267	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14268
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14269	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14270
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14271	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14272	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14273	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	14274	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	14275	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	14276	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	14277	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	14278	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	14279	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	14280	@@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	14281	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14282
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14283	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14284
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14285	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14286	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14287	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14288
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14289	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14290	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14291
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14292	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14293	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14294	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14295	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14296	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14297
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14298	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14299
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14300	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14301	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14302	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14303	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14304	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14305	label: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14306	name: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14307	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14308	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14309	bounds: (Rectangle 0 0 600 602)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14310	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14311	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14312	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14313	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14314	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14315	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14316	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	14317	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14318	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14319	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14320	verticalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14321	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14322	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14323	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14324	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14325	name: 'SeparatingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14326	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14327	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14328	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14329	name: 'InfoTextBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14330	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14331	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14332	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14333	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14334	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14335	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14336	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14337	labelChannel: helpText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14338	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14339	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14340	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14341
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14342	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14343	extent: (Point 600 90)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14344	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14345	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14346	name: 'STCCompilationBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14347	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14348	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14349	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14350	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14351	label: 'STC Compilation to Machine Code:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14352	name: 'Label11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14353	layout: (LayoutFrame 0 0 0 0 240 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14354	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14355	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14356	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14357	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14358	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14359	name: 'StcCompilation'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14360	layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14361	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14362	model: stcCompilationSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14363	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14364	menu: stcCompilationList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14365	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14366	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14367	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14368
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14369	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14370	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14371	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14372	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14373	name: 'STCCommandBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14374	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14375	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14376	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14377	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14378	label: 'STC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14379	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14380	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14381	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14382	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14383	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14384	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14385	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14386	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14387	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14388	model: stc
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14389	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14390	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14391	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14392	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14393	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14394	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14395	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14396
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14397	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14398	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14399	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14400	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14401	name: 'STCOptionsBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14402	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14403	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14404	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14405	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14406	label: 'STC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14407	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14408	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14409	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14410	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14411	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14412	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14413	name: 'EntryField2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14414	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14415	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14416	model: stcOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14417	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14418	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14419	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14420	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14421	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14422	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14423	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14424
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14425	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14426	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14427	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14428	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14429	name: 'KeepCIntermediateBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14430	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14431	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14432	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14433	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14434	label: 'Keep Intermediate C File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14435	name: 'Label15'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14436	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14437	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14438	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14439	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14440	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14441	name: 'CheckToggle1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14442	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14443	model: stcKeepCIntermediate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14444	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14445	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14446	lampColor: (Color 100.0 100.0 0.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14447	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14448	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14449
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14450	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14451	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14452	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14453	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14454	name: 'CCCommandBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14455	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14456	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14457	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14458	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14459	label: 'CC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14460	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14461	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14462	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14463	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14464	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14465	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14466	name: 'EntryField3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14467	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14468	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14469	model: cc
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14470	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14471	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14472	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14473	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14474	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14475	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14476	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14477
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14478	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14479	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14480	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14481	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14482	name: 'CCOptionsBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14483	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14484	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14485	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14486	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14487	label: 'CC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14488	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14489	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14490	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14491	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14492	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14493	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14494	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14495	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14496	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14497	model: ccOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14498	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14499	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14500	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14501	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14502	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14503	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14504	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14505
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14506	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14507	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14508	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14509	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14510	name: 'IncludeDirectoriesBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14511	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14512	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14513	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14514	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14515	label: 'Include Directories:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14516	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14517	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14518	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14519	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14520	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14521	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14522	name: 'EntryField5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14523	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14524	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14525	model: stcIncludes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14526	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14527	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14528	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14529	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14530	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14531	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14532	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14533
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14534	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14535	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14536	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14537	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14538	name: 'STCDefinesBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14539	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14540	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14541	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14542	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14543	label: 'Defines:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14544	name: 'Label6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14545	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14546	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14547	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14548	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14549	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14550	name: 'EntryField6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14551	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14552	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14553	model: stcDefines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14554	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14555	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14556	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14557	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14558	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14559	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14560	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14561
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14562	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14563	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14564	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14565	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14566	name: 'LinkCommandBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14567	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14568	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14569	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14570	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14571	label: 'Link Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14572	name: 'Label7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14573	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14574	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14575	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14576	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14577	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14578	name: 'EntryField7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14579	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14580	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14581	model: linkCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14582	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14583	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14584	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14585	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14586	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14587	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14588	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14589
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14590	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14591	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14592	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14593	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14594	name: 'LinkArgumentsBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14595	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14596	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14597	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14598	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14599	label: 'Link Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14600	name: 'Label8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14601	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14602	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14603	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14604	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14605	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14606	name: 'EntryField8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14607	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14608	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14609	model: linkArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14610	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14611	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14612	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14613	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14614	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14615	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14616	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14617
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14618	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14619	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14620	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14621	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14622	name: 'LinkSharedArgumentsBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14623	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14624	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14625	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14626	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14627	label: 'Link Shared Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14628	name: 'Label12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14629	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14630	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14631	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14632	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14633	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14634	name: 'EntryField11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14635	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14636	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14637	model: linkSharedArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14638	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14639	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14640	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14641	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14642	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14643	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14644	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14645
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14646	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14647	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14648	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14649	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14650	name: 'CLibrariesBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14651	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14652	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14653	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14654	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14655	label: 'C-Libraries:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14656	name: 'Label9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14657	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14658	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14659	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14660	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14661	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14662	name: 'EntryField9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14663	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14664	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14665	model: stcLibraries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14666	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14667	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14668	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14669	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14670	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14671	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14672	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14673
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14674	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14675	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14676	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14677	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14678	name: 'STCLibraryPathBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14679	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14680	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14681	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14682	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14683	label: 'STC Library Path:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14684	name: 'Label10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14685	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14686	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14687	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14688	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14689	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14690	name: 'EntryField10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14691	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14692	enableChannel: enableStcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14693	model: stcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14694	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14695	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14696	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14697	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14698	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14699	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14700	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14701
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14702	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14703	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14704	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14705	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14706	name: 'MakeCommandBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14707	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14708	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14709	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14710	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14711	label: 'Make Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14712	name: 'Label13'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14713	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14714	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14715	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14716	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14717	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14718	name: 'EntryField12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14719	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14720	model: makeCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14721	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14722	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14723	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14724	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14725	acceptOnPointerLeave: true
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
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14729	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14730	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14731	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14732	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14733	name: 'SeparatingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14734	extent: (Point 600 12)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14735	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14736	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14737	name: 'SetupForBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14738	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14739	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14740	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14741	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14742	label: 'Set above Options for:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14743	name: 'Label16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14744	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14745	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14746	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14747	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14748	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14749	name: 'PopUpList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14750	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14751	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14752	model: supportedCCompilerSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14753	menu: supportedCCompilerList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14754	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14755	stateChangeCallBackSelector: supportedCCompilerSelectionChanged
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14756	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14757	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14758
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14759	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14760	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14761	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14762	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14763	name: 'Box1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14764	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14765	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14766	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14767	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14768	label: 'Verbose (Trace Commands):'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14769	name: 'Label17'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14770	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14771	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14772	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14773	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14774	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14775	name: 'CheckToggle2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14776	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14777	model: verbose
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14778	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14779	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14780	lampColor: (Color 100.0 100.0 0.0)
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14785	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14786	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14787	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14788
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14789	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14790	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14791	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14792
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14793	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14794	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14795	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14796
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14797	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14798
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14799	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14800	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14801
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14802	self canLoadBinaries
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14803	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	14804
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14805	self verbose value:(STCCompilerInterface verbose ? false).
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14806
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14807	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14808	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14809	self stcOptions value:ParserFlags stcCompilationOptions.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14810	self stcKeepCIntermediate value:ParserFlags stcKeepCIntermediate.
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14811	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14812	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14813	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	14814	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	14815
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14816	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14817	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14818	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14819
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14820	(t := ParserFlags searchedLibraries) notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14821	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14822	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14823	(t := ParserFlags libPath) notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14824	self stcLibraryPath value:t
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14825	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14826
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14827	self stcCompilationSelection value:(self class stcCompilationOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14828	indexOf:(ParserFlags stcCompilation)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14829	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	14830
ec908ed4b944 make command fm parents: 6860 diff changeset	14831	"Modified: / 09-08-2006 / 18:49:38 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14832	"Modified: / 16-09-2011 / 18:45:15 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14833	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14834
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14835	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14836
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14837	STCCompilerInterface verbose:self verbose value.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14838
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14839	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14840	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14841	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14842	ParserFlags stcCompilationOptions:self stcOptions value.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14843	ParserFlags stcKeepCIntermediate:self stcKeepCIntermediate value.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14844	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14845	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	14846	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	14847
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14848	self stc value ~= ParserFlags stcPath ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14849	ParserFlags stcPath:self stc value
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14850	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14851	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14852	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14853	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14854	self stcLibraries value notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14855	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14856	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14857	stcLibraryPath notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14858	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14859	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	14860
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	14861	"Modified: / 09-08-2006 / 19:33:10 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14862	"Modified: / 16-09-2011 / 18:45:28 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14863	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14864
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14865	setupForBCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14866	"set values for using borland C (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14867
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14868	\|bccDir\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14869
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14870	bccDir := 'c:\borland\bcc55'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14871
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14872	bccDir asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14873	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	14874	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14875
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14876	self cc value:(bccDir,'\bin\bcc32').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14877	self ccOptions value:'-w-'.
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	14878	self stcIncludes value:('-I..\..\include -I',bccDir,'\Include').
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14879	self linkCommand value:(bccDir,'\bin\ilink32').
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	14880	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	14881	self stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14882	self makeCommand value:'bmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14883
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14884	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14885	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14886
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14887	"Modified: / 14-06-2017 / 11:04:00 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14888	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14889
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14890	setupForCLANG
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14891	"set values for using CLANG"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14892
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14893	\|cpuType ccOptions linkArgs linkSharedArgs\|
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14894
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14895	self cc value:'clang'.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14896	cpuType := OperatingSystem getCPUType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14897
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14898	ccOptions := '-O3 -arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14899	linkArgs := '-arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14900	linkSharedArgs := '-shared -arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14901
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14902	OperatingSystem isOSXlike ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14903	ccOptions := ccOptions , ' -mmacosx-version-min=10.3'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14904	linkSharedArgs := linkSharedArgs , ' -mmacosx-version-min=10.3 librun.so'
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14905	].
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14906
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14907	self ccOptions value:ccOptions.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14908	self linkArgs value:linkArgs.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14909	self linkSharedArgs value:linkSharedArgs.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14910	self stcIncludes value:'-I../../include -I/usr/include/freetype2'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14911	self linkCommand value:'clang'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14912	self stcLibraries value:''.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14913	self makeCommand value:'make'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14914
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14915	self updateModifiedChannel.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14916	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14917
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14918	"Modified (comment): / 14-06-2017 / 10:48:34 / cg"
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14919	!
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	14920
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14921	setupForGCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14922	"set values for using gcc (linux/unix)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14923
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14924	self cc value:'gcc'.
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	14925	ExternalBytes sizeofPointer == 4 ifTrue:[
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	14926	self ccOptions value:'-m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	14927	self linkArgs value:'-m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	14928	self linkSharedArgs value:'-shared -m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	14929	] ifFalse:[
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	14930	self ccOptions value:'-m64 -fPIC'.
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	14931	self linkArgs value:'-m64'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	14932	self linkSharedArgs value:'-shared -m64'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	14933	].
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14934	self stcIncludes value:'-I../../include -I/usr/include/freetype2'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14935	self linkCommand value:'gcc'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14936	self stcLibraries value:''.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14937	self makeCommand value:'make'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14938
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14939	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14940	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14941
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14942	"Modified: / 14-06-2017 / 11:09:07 / cg"
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	14943	"Modified: / 20-09-2017 / 19:48:10 / stefan"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14944	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14945
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14946	setupForMINGW
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14947	"set values for using mingw (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14948
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14949	\|programFiles programFilesX86 mingwFolder\|
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	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14952	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14953	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14954	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14955
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14956	"/ where to search
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	14957	ExternalBytes sizeofPointer == 4 ifTrue:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14958	mingwFolder := 'C:\mingw32'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14959	] ifFalse:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14960	mingwFolder := 'C:\mingw64'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14961	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14962
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14963	{ programFilesX86 . programFiles . 'C:\' . 'C:\mingw' } do:[:triedFolder \|
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	14964	ExternalBytes sizeofPointer == 4 ifTrue:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14965	(triedFolder asFilename / 'mingw32') exists ifTrue:[
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	14966	mingwFolder := triedFolder asFilename constructString: 'mingw32'
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14967	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14968	] ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14969	(triedFolder asFilename / 'mingw64') exists ifTrue:[
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	14970	mingwFolder := triedFolder asFilename constructString: 'mingw64'
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14971	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14972	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14973	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14974
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14975	self cc value:(mingwFolder,'\bin\gcc').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14976	self linkArgs value:('-L..\..\lib\mingw -L',mingwFolder,'\lib').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14977	self ccOptions value:''.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14978	self stcIncludes value:'-I..\..\include'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14979	self linkCommand value:(self cc value).
16812 d9494aeded9d #BUGFIX by sr sr parents: 16788 diff changeset	14980	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	14981	self makeCommand value:'mingwmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14982
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14983	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14984	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14985
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14986	"Modified: / 14-06-2017 / 11:08:33 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14987	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14988
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	14989	setupForMSVC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14990	"set values for using msvc (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14991
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14992	\|programFiles programFilesX86 nothingFound found\|
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14993
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14994	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14995	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14996	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14997	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14998
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	14999	self cc value:('cl.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15000	self linkCommand value:('ilink32.exe').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15001	self ccOptions value:'/O1'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15002	self stcIncludes value:'-I..\..\include'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15003	self linkArgs value:'-L..\..\lib\vc'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15004	self stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15005	self makeCommand value:'vcmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15006
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15007	"/ no try to find cl and ilink32
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15008	nothingFound := false.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15009
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15010	programFilesX86 asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15011	programFiles asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15012	nothingFound := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15013	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15014	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15015	nothingFound ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15016	#('13.0' '12.0' '11.0' '10.0') do:[:triedVersion \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15017	{ programFilesX86 . programFiles } do:[:triedFolder \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15018	\|each\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15019
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15020	found ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15021	each := triedFolder,'\Microsoft Visual Studio ',triedVersion,'\VC\bin'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15022	each asFilename exists ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15023	self cc value:(each,'\cl.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15024	self linkCommand value:(each,'\ilink32.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15025	found := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15026	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15027	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15028	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15029	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15030	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15031
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15032	self updateModifiedChannel.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15033	self supportedCCompilerSelection value:0.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15034
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15035	nothingFound ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15036	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	15037	].
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	"Modified: / 14-06-2017 / 11:04:11 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15040	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15041
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15042	supportedCCompilerSelectionChanged
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15043	\|idx spec compiler\|
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15044
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15045	idx := self supportedCCompilerSelection value.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15046	idx == 0 ifTrue:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15047
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15048	spec := self supportedCCompilerListSpec at:idx ifAbsent:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15049	compiler := spec second.
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15050	compiler == #clang ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15051	self setupForCLANG.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15052	^ self.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15053	].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15054	compiler == #gcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15055	self setupForGCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15056	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15057	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15058	compiler == #bcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15059	self setupForBCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15060	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15061	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15062	compiler == #msvc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15063	self setupForMSVC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15064	^ self.
12411 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	compiler == #mingw ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15067	self setupForMINGW.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15068	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15069	].
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15070	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15071
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15072	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15073
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15074	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15075
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15076	canLoadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15077	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15078	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15079	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15080	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15081
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15082	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15083
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15084	cc isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15085	cc := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15086	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15087	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15088	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15089	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15090
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15091	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15092
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15093	ccOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15094	ccOptions := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15095	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15096	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15097	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15098	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15100	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15101
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15102	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15103	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15104
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15105	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15106
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15107	linkArgs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15108	linkArgs := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15109	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15110	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15111	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15112	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15113
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15114	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15115
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15116	linkCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15117	linkCommand := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15118	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15119	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15120	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15121	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15122
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15123	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15124
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15125	linkSharedArgs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15126	linkSharedArgs := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15127	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15128	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15129	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15130	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15131
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15132	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	15133
ec908ed4b944 make command fm parents: 6860 diff changeset	15134	makeCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15135	makeCommand := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15136	makeCommand onChangeSend:#updateModifiedChannel to:self.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15137	].
ec908ed4b944 make command fm parents: 6860 diff changeset	15138	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	15139
ec908ed4b944 make command fm parents: 6860 diff changeset	15140	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	15141	!
ec908ed4b944 make command fm parents: 6860 diff changeset	15142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15143	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15144
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15145	stc isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15146	stc := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15147	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15148	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15149	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15150	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15151
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15152	stcCompilationList
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	stcCompilationList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15155	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15156	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15157	^ stcCompilationList.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15160	stcCompilationSelection
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	stcCompilationSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15163	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15164	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15165	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15166	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15167	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15168
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15169	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15170
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15171	stcDefines isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15172	stcDefines := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15173	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15174	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15175	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15176	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15177
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15178	stcIncludes
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	stcIncludes isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15181	stcIncludes := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15182	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15183	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15184	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15185	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15186
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15187	stcKeepCIntermediate
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15188	stcKeepCIntermediate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15189	stcKeepCIntermediate := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15190	stcKeepCIntermediate onChangeSend:#updateModifiedChannel to:self.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15191	].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15192	^ stcKeepCIntermediate.
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15193
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15194	"Created: / 16-09-2011 / 18:42:10 / cg"
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15195	!
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15196
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15197	stcLibraries
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	stcLibraries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15200	stcLibraries := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15201	stcLibraries 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	^ stcLibraries.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15206	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15207
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15208	stcLibraryPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15209	stcLibraryPath := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15210	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15211	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15212	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15213	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15214
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15215	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15216
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15217	stcOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15218	stcOptions := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15219	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15220	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15221	^ stcOptions.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15222	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15223
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15224	supportedCCompilerList
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15225	^ self supportedCCompilerListSpec collect:[:s \| s first].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15226	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15227
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15228	supportedCCompilerListSpec
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15229	OperatingSystem isMSWINDOWSlike ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15230	^ #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15231	('Borland CC v5.5 (bcc)' #bcc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15232	('Microsoft Visual C (cl)' #msvc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15233	('Mingw (gcc)' #mingw)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15234	).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15235	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15236
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15237	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15238	('GNU gcc' #gcc)
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15239	('clang' #clang)
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15240	).
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15241	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15242
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15243	supportedCCompilerSelection
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15244	supportedCCompilerSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15245	supportedCCompilerSelection := ValueHolder new.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15246	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15247	^ supportedCCompilerSelection.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15248	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15249
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15250	verbose
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15251
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15252	verbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15253	verbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15254	verbose onChangeSend:#updateModifiedChannel to:self.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15255	].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15256	^ verbose.
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
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15259	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15260
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15261	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15262	^ 'Launcher/compilerSettings.html'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15263	!
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15264
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15265	helpText
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15266	^ 'These settings are only relevant if methods are to be compiled directly to
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15267	machine code (i.e. using the external stc, not the builtin bytecode compiler).
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15268	Stc-compilation is mandatory for methods which contain inline-C code,
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15269	otherwise, for plain smalltalk code, is not needed.'
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15270
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15271	"Created: / 16-09-2011 / 18:18:32 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15272	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15273
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15274	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15275
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15276	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15277	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15278
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15279	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15280
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15281	((STCCompilerInterface verbose) ~= (self verbose value)) ifTrue:[^ true].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15282
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15283	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15284	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15285	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15286	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15287	((ParserFlags stcKeepCIntermediate) ~= self stcKeepCIntermediate value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15288	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15289	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15290	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15291	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15292	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15293	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15294	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15295	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15296
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15297	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15298	searchedLibs notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15299	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15300	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15301	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15302
ec908ed4b944 make command fm parents: 6860 diff changeset	15303	"Modified: / 09-08-2006 / 18:50:36 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15304	"Modified: / 16-09-2011 / 18:42:00 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15305	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15306
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15307	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15308
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15309	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15310
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15311	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15312	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15313	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15314
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15315	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15316
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15317	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15318	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15319	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15320	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15321	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15322	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15323	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15324	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15325	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15326	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15327	Transcript showCR:''world''.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15328	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15329	[methodArg] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15330	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15331	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15332	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15333	Transcript showCR:''hello''. "/ long blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15334	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15335	methodArg do:[:element \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15336	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15337	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15338	1 to:methodArg size do:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15339	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15340	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15341	methodArg keysAndValuesDo:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15342	Transcript showCR:''hello''. "/ looping
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15343	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15344	Object errorSignal handle:[:ex \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15345	ex return
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15346	] do:[ "/ exception handling
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15347	self someAction "/ blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15348	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15349	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15350	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15351	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15352
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15353	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15354
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15355	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15356	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15357	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15358
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15359	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15360	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15361
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15362	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15363	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15364	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15365	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15366	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15367
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15368	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15369
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15370	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15371	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15372	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15373	@@@@@@@@@@@@@@@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	15374	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	15375	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	15376	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15377
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15378	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15379
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15380	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15381	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15382	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15383
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15384	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15385	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15386
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15387	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15388	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15389	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15390	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15391	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15392
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15393	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15394
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15395	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15396	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15397	name: windowSpec
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15398	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15399	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15400	label: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15401	name: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15402	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15403	bounds: (Rectangle 0 0 613 685)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15404	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15405	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15406	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15407	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15408	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15409	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15410	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	15411	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15412	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15413	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15414	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15415	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15416	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15417	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15418	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15419	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15420	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15421	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15422	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15423	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15424	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15425	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15426	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15427	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15428	name: 'Box1'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15429	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15430	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15431	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15432	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15433	label: 'Space around Temporaries'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15434	name: 'CheckBox3'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15435	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15436	model: spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15437	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15438	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15439	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15440	label: 'Blank line after local Var Declaration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15441	name: 'CheckBox4'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15442	layout: (LayoutFrame 270 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15443	model: emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15444	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15445	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15446	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15447
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15448	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15449	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15450	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15451	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15452	name: 'Box11'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15453	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15454	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15455	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15456	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15457	label: 'Space after ''^'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15458	name: 'CheckBox5'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15459	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15460	model: spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15461	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15462	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15463	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15464	label: 'Space after '':'' in Keywords'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15465	name: 'CheckBox6'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15466	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15467	model: spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15468	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15469	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15470	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15471
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15472	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15473	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15474	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15475	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15476	name: 'Box15'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15477	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15478	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15479	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15480	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15481	label: 'Space after ''['''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15482	name: 'CheckBox9'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15483	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15484	model: spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15485	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15486	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15487	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15488	label: 'Space before '']'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15489	name: 'CheckBox10'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15490	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15491	model: spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15492	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15493	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15494	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15495
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15496	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15497	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15498	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15499	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15500	name: 'Box12'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15501	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15502	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15503	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15504	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15505	label: 'C-Style Blocks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15506	name: 'CheckBox8'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15507	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15508	model: cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15509	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15510	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15511	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15512	label: 'Block Args on new Line'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15513	name: 'CheckBox7'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15514	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15515	model: blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15516	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15517	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15518	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15519
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15520	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15521	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15522	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15523	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15524	name: 'Box13'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15525	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15526	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15527	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15528	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15529	label: 'Indent:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15530	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15531	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15532	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15533	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15534	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15535	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15536	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15537	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15538	model: tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15539	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15540	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15541	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15542	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15543	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15544	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15545	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15546
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15547	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15548	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15549	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15550	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15551	name: 'Box16'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15552	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15553	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15554	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15555	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15556	label: 'Max Length for Single Line Blocks:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15557	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15558	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15559	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15560	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15561	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15562	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15563	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15564	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15565	model: maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15566	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15567	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15568	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15569	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15570	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15571	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15572	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15573
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15574	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15575	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15576	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15577	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15578	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15579	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15580	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15581	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15582	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15583	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15584	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15585	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15586	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15587	label: 'Reset to ST/X Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15588	name: 'Button1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15589	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15590	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15591	model: resetToStxDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15592	extent: (Point 300 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15593	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15594	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15595	label: 'Reset to RefactoryBrowser Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15596	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15597	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15598	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15599	model: resetToRBDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15600	extent: (Point 301 22)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15601	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15602	)
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	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15608
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15609	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15610	extent: (Point 613 180)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15611	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15612	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15613	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15614	extent: (Point 613 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15615	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15616	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15617	name: 'Box14'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15618	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15619	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15620	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15621	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15622	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15623	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15624	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15625	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15626	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15627	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15628	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15629	name: 'TextEditor3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15630	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15631	model: editorText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15632	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15633	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15634	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15635	hasKeyboardFocusInitially: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15636	postBuildCallback: postBuildTextEditor:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15637	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15638	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15639
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15640	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15641	extent: (Point 613 453)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15642	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15643	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15644
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15645	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15646	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15647	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15648	label: 'Auto Format'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15649	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15650	layout: (LayoutFrame 3 0 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15651	model: autoFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15652	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15653	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15654	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15655
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15656	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15657	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15658	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15659
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15660	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15661
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15662	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15663	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15664
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15665	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15666	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15667	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15668	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15669	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15670	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15671	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15672	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15673	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15674	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15675	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15676	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15677	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15678	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15679	from:RBFormatter.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15680
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15681	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15682	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15683	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15684	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15685	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15686
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15687	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15688
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15689	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15690	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15691	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15692	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15693	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15694	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15695	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15696	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15697	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15698	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15699	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15700	RBFormatter
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15701	tabIndent:self tabIndent value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15702	spaceAroundTemporaries:self spaceAroundTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15703	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15704	spaceAfterReturnToken:self spaceAfterReturnToken value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15705	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15706	spaceAfterBlockStart:self spaceAfterBlockStart value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15707	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15708	cStyleBlocks:self cStyleBlocks value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15709	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15710	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15711	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15712
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15713	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15714
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15715	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15716	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15717	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15718	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15719
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15720	reformatLocked ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15721	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15722	"/ temporary change the RBFormatters settings ...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15723	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15724	s_tabIndent := RBFormatter tabIndent.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15725	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15726	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15727	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15728	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15729	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15730	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15731	s_cStyleBlocks := RBFormatter cStyleBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15732	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15733	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15734
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15735	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15736	tabIndent:self tabIndent value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15737	spaceAroundTemporaries:self spaceAroundTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15738	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15739	spaceAfterReturnToken:self spaceAfterReturnToken value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15740	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15741	spaceAfterBlockStart:self spaceAfterBlockStart value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15742	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15743	cStyleBlocks:self cStyleBlocks value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15744	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15745	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15746
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15747	"/ tree := RBParser
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15748	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15749	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15750	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15751	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15752	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15753	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15754	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15755	"/ self editorText value:tree printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15756	self editorText value:(RBFormatter format:(self class exampleText)).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15757
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15758	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15759	tabIndent:s_tabIndent;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15760	spaceAroundTemporaries:s_spaceAroundTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15761	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15762	spaceAfterReturnToken:s_spaceAfterReturnToken;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15763	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15764	spaceAfterBlockStart:s_spaceAfterBlockStart;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15765	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15766	cStyleBlocks:s_cStyleBlocks;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15767	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15768	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15769	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15770	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15771
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15772	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15773
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15774	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15775	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15776	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15777	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15778	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15779	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15780	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15781	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15782	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15783	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15784	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15785	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15786	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15787	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15788
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15789	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15790
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15791	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15792	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15793	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15794	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15795	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15796	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15797	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15798	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15799	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15800	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15801	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15802	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15803	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15804	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15805
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15806	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15807
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15808	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15809
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15810	autoFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15811	autoFormat := currentUserPrefs autoFormatting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15812	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15813	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15814	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15815	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15816
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15817	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15818
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15819	blockArgumentsOnNewLine isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15820	blockArgumentsOnNewLine := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15821	blockArgumentsOnNewLine addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15822	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15823	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15824	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15825
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15826	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15827
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15828	cStyleBlocks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15829	cStyleBlocks := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15830	cStyleBlocks addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15831	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15832	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15833	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15834
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15835	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15836
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15837	editorText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15838	editorText := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15839	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15840	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15841	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15842
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15843	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15844
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15845	emptyLineAfterTemporaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15846	emptyLineAfterTemporaries := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15847	emptyLineAfterTemporaries addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15848	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15849	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15850	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15851
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15852	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	maxLengthForSingleLineBlocks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15855	maxLengthForSingleLineBlocks := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15856	maxLengthForSingleLineBlocks addDependent:self.
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	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15859	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15860
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15861	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15862
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15863	spaceAfterBlockStart isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15864	spaceAfterBlockStart := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15865	spaceAfterBlockStart addDependent:self.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15866	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15867	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15868	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15869
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15870	spaceAfterKeywordSelector
4398 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	spaceAfterKeywordSelector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15873	spaceAfterKeywordSelector := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15874	spaceAfterKeywordSelector addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15875	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15876	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15877	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15878
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15879	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15880
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15881	spaceAfterReturnToken isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15882	spaceAfterReturnToken := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15883	spaceAfterReturnToken addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15884	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15885	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15886	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15887
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15888	spaceAroundTemporaries
4398 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	spaceAroundTemporaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15891	spaceAroundTemporaries := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15892	spaceAroundTemporaries addDependent:self.
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	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15895	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15896
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15897	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15898
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15899	spaceBeforeBlockEnd isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15900	spaceBeforeBlockEnd := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15901	spaceBeforeBlockEnd addDependent:self.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15902	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15903	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15904	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15905
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15906	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15907
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15908	tabIndent isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15909	tabIndent := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15910	tabIndent addDependent:self.
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	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15913	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15914
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15915	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15916
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15917	update:something with:aParameter from:changedObject
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15918	(changedObject == self blockArgumentsOnNewLine
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15919	or:[ changedObject == self cStyleBlocks
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15920	or:[ changedObject == self emptyLineAfterTemporaries
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15921	or:[ changedObject == self maxLengthForSingleLineBlocks
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15922	or:[ changedObject == self spaceAfterKeywordSelector
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15923	or:[ changedObject == self spaceAfterReturnToken
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15924	or:[ changedObject == self spaceAfterBlockStart
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15925	or:[ changedObject == self spaceBeforeBlockEnd
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15926	or:[ changedObject == self spaceAroundTemporaries
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15927	or:[ changedObject == self tabIndent]]]]]]]]])
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	15928	ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15929	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15930	self reformat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15931	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15932	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15933	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15934	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15935	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15936	from:changedObject
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
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15939	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15940
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15941	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15942	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15943	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15944
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15945	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15946
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15947	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	15948	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	15949
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15950	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15951	RBFormatter isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15952	^ self warn:'Sorry, no RBFormatter class'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15953	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15954	RBFormatter isLoaded ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15955	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15956	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15957	reformatLocked := false.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	15958
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	15959	"Modified: / 08-02-2017 / 00:30:17 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15960	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15961
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15962	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15963
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15964	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15965	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15966	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15967
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15968	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15969
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15970	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15971	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15972
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15973	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15974	hasChangedAspectIn:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15975	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15976	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15977	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15978	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15979	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15980	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15981	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15982	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15983	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15984	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15985	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15986	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15987	asComparedTo:RBFormatter) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	15988
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15989	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15990	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15991
11325 0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	15992	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'documentation'!
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	15993
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	15994	documentation
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	15995	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	15996	this is the old (now obsolete) settings app, which was used until multiple
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	15997	managers were supported (i.e. when only the CVSSourceCodeManager was available).
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	15998	It has been split into a generic part (manager-to-module assignment),
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	15999	and per-manager subapplications.
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16000	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16001	! !
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16002
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16003	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16004
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16005	helpSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16006	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16007	by the UIHelpTool of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16008
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16009	"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	16010	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	16011
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16012	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16013	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16014	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16015
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16016	<resource: #help>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16017
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16018	^ super helpSpec addPairsFrom:#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16019
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16020	#addPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16021	'Add a new per-package manager definition'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16022
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16023	#browseSourceCache
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16024	'Open a file browser on the source cache directory'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16025
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16026	#checkClassesWhenCheckingIn
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16027	'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	16028
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16029	#checkPerPackageManager
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16030	'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	16031
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16032	#condenseSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16033	'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	16034
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16035	#defaultManagerType
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16036	'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	16037
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16038	#editPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16039	'Modify the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16040
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16041	#fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16042	'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	16043
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16044	#flushSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16045	'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	16046
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16047	#keepMethodSourceInImage
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16048	'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	16049
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16050	#moveManagerDown
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16051	'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	16052
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16053	#moveManagerUp
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16054	'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	16055
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16056	#perPackageConfiguration
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16057	'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	16058
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16059	#removePerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16060	'Remove the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16061
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16062	#sourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16063	'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	16064
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16065	#useLocalSources
13222 e5ff6ff1acb5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13220 diff changeset	16066	'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	16067
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16068	#useManager
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16069	'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	16070
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16071	#verboseSourceCodeAccess
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16072	'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	16073
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16074	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16075
67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16076	"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	16077	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16078
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16079	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16080
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16081	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16082	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16083	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16084
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16085	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16086	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16087
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16088	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16089	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16090	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16091	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16092	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16093
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16094	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16095
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16096	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16097	constantNamed:'AbstractSettingsApplication::SourceCodeManagementSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16098	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16099	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16100	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16101	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16102	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16103	@@@@@@@@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	16104	EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16105	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	16106	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	16107	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16108
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16109	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16110
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16111	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16112	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16113	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16115	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16116	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16118	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16119	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16120	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16121	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16122	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16123
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16124	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16125
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16126	^
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16127	#(FullSpec
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16128	name: windowSpec
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16129	window:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16130	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16131	label: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16132	name: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16133	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16134	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16135	bounds: (Rectangle 0 0 660 639)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16136	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16137	component:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16138	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16139	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16140	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16141	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16142	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	16143	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16144	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16145	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16146	verticalSpace: 20
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16147	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16148	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16149	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16150	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16151	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16152	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16153	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16154	horizontalSpace: 3
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16155	verticalSpace: 2
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16156	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16157	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16158	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16159	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16160	name: 'Box3'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16161	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16162	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16163	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16164	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16165	label: 'Sourcecode Management'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16166	name: 'SourcecodeManagementCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16167	layout: (LayoutFrame 5 0 0 0.0 332 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16168	activeHelpKey: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16169	model: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16170	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16171	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16172	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16173	name: 'ComboList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16174	layout: (LayoutFrame -151 1 0 0 -5 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16175	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16176	visibilityChannel: moreThanOneManagerTypesAvailable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16177	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16178	model: selectedManagerTypeIndexHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16179	comboList: availableManagerTypeNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16180	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16181	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16182	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16183	label: 'Default Repository Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16184	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16185	layout: (AlignmentOrigin -154 1 16 0 1 0.5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16186	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16187	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16188	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16189	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16190	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16191	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16192
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16193	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16194	extent: (Point 660 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16195	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16196	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16197	label: 'Per Package Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16198	name: 'PerPackageConfiguration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16199	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16200	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16201	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16202	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16203	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16204	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16205	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16206	name: 'RepositoryConfigurations'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16207	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16208	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16209	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16210	verticalLayout: bottomFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16211	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16212	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16213	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16214	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16215	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16216	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16217	name: 'RepositoryConfigurationListBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16218	activeHelpKey: perPackageConfiguration
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16219	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16220	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16221	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16222	(DataSetSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16223	name: 'RepositoryConfigurationList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16224	layout: (LayoutFrame 0 0 0 0 -122 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16225	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16226	model: selectedManagerPerMatchingModuleHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16227	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16228	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16229	dataList: managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16230	columnHolder: managerPerMatchingModuleColumns
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16231	beDependentOfRows: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16232	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16233	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16234	name: 'Buttons1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16235	layout: (LayoutFrame -121 1 0 0 0 1 -22 1)
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: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16239	verticalSpace: 3
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	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16244	label: 'Add...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16245	name: 'ButtonAdd'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16246	activeHelpKey: addPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16247	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16248	model: actionAdd
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16249	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16250	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16251	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16252	label: 'Edit...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16253	name: 'ButtonEdit'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16254	activeHelpKey: editPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16255	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16256	model: actionEdit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16257	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16258	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16259	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16260	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16261	label: 'Move Up'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16262	name: 'ButtonModeUp'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16263	activeHelpKey: moveManagerUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16264	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16265	model: actionMoveUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16266	enableChannel: canMoveUp
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16267	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16268	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16269	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16270	label: 'Move Down'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16271	name: 'ButtonModeDown'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16272	activeHelpKey: moveManagerDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16273	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16274	model: actionMoveDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16275	enableChannel: canMoveDown
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16276	extent: (Point 119 30)
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	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16279	name: 'SpacingLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16280	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16281	extent: (Point 121 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16282	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16283	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16284	label: 'Remove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16285	name: 'ButtonRemove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16286	activeHelpKey: removePerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16287	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16288	model: actionRemove
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16289	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16290	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16291	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16292	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16293
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16294	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16295	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16296	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16297	label: 'Test'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16298	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16299	layout: (LayoutFrame -90 1 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16300	activeHelpKey: checkPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16301	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16302	model: actionTest
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16303	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16304	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16305
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16306	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16307	extent: (Point 618 258)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16308	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16309	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16310
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16311	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16312	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16313	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16314
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16315	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16316	extent: (Point 660 300)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16317	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16318	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16319	label: 'Source Cache'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16320	name: 'SourceCacheBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16321	activeHelpKey: sourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16322	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16323	translateLabel: true
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	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16328	name: 'SourceCacheDirBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16329	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	16330	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16331	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16332	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16333	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16334	name: 'FilenameEntryField1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16335	layout: (LayoutFrame 64 0.25 0 0 -2 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16336	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16337	model: sourceCacheDir
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16338	immediateAccept: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16339	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16340	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16341	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16342	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16343	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16344	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16345	label: 'Source Cache Dir:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16346	name: 'SourceCacheDirLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16347	layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
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	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16350	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16351	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16352
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16353	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16354	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16355	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16356	name: 'CacheActionsHorizontalPanel1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16357	layout: (LayoutFrame 0 0 37 0 -1 1 67 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16358	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16359	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16360	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16361	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16362	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16363	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16364	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16365	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16366	label: 'Fill Cache'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16367	name: 'FillCacheInBackgroundButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16368	activeHelpKey: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16369	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16370	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16371	model: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16372	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16373	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16374	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16375	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16376
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16377	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16378	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16379	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16380	name: 'CacheActionsHorizontalPanel2'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16381	layout: (LayoutFrame 0 0 70 0 -1 1 100 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16382	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16383	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16384	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16385	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16386	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16387	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16388	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16389	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16390	label: 'Browse'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16391	name: 'Button3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16392	activeHelpKey: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16393	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16394	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16395	model: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16396	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16397	extent: (Point 171 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16398	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16399	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16400	name: 'Box5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16401	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16402	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16403	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16404	label: 'Flush'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16405	name: 'Button4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16406	activeHelpKey: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16407	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16408	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16409	model: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16410	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16411	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16412	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16413	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16414	label: 'Condense'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16415	name: 'Button5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16416	activeHelpKey: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16417	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16418	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16419	model: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16420	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16421	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16422	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16423	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16424
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16425	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16426	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16427	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16428
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16429	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16430	extent: (Point 660 136)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16431	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16432	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16433	name: 'UseLocalSourceBox'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16434	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16435	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16436	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16437	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16438	label: 'If Present, Use Local Source (Suppress Checkout)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16439	name: 'CheckBox4'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16440	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16441	activeHelpKey: useLocalSources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16442	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16443	model: localSourceFirst
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16444	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16445	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16446	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16447
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16448	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16449	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16450	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16451	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16452	name: 'KeepMethodSourceBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16453	activeHelpKey: keepMethodSourceInImage
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16454	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16455	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16456	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16457	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16458	label: 'Keep Method Source (In Image)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16459	name: 'CheckBox7'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16460	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16461	activeHelpKey: keepMethodSourceInImage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16462	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16463	model: keepMethodSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16464	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16465	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16466	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16467
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16468	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16469	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16470	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16471	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16472	name: 'CheckForHaltSendsBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16473	activeHelpKey: checkClassesWhenCheckingIn
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16474	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16475	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16476	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16477	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16478	label: 'Check for halt/error-Sends when Checking in'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16479	name: 'CheckBox5'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16480	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16481	activeHelpKey: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16482	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16483	model: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16484	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16485	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16486	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16487
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16488	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16489	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16490	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16491	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16492	name: 'VerboseBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16493	activeHelpKey: verboseSourceCodeAccess
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16494	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16495	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16496	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16497	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16498	label: 'Verbose (Trace Operations on Transcript)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16499	name: 'CheckBox6'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16500	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16501	activeHelpKey: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16502	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16503	model: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16504	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16505	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16506	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16507
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16508	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16509	extent: (Point 660 32)
16167 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 768)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16515	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16516	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16517
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16518	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16519	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16520	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16521
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16522	)
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16523	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16524	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16525
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16526	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16527
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16528	managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16529	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16530	by the DataSetBuilder of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16531
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16532	"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	16533	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	16534
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16535	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16536	DataSetBuilder new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16537	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16538
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16539	<resource: #tableColumns>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16540
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16541	^#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16542	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16543	label: 'Module (PackageID Match)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16544	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16545	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16546	model: displayStringForPackage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16547	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16548	writeSelector: package:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16549	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16550	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16551	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16552	label: 'Repository Type'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16553	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16554	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16555	model: displayStringForManagerTypeName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16556	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16557	writeSelector: manager:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16558	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16559	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16560	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16561
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16562	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16563
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16564	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16565
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16566	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16568	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16569	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16570
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16571	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16572
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16573	actionAdd
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16574	\|dlg package mgr oldEntry idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16575
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16576	dlg := PerModuleManagerSettingDialog new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16577	dlg open ifFalse:[ ^ self ].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16578	package := dlg package.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16579	mgr := dlg manager.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16580	oldEntry := managerPerMatchingModule
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16581	detect:[:entry \| entry package = package and:[ entry manager = mgr ] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16582	ifNone:nil.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16583	oldEntry notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16584	ifTrue:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16585	[ oldEntry manager:mgr.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16586	managerPerMatchingModule changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16587	idx := managerPerMatchingModule indexOf:oldEntry. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16588	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16589	[ managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16590	add:(AbstractSourceCodeManager::PackageAndManager package:package manager:mgr).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16591	idx := managerPerMatchingModule size. ].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16592	selectedManagerPerMatchingModuleHolder value:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16593
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16594	"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	16595	"Modified: / 18-04-2011 / 21:24:52 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16596	"Modified: / 09-07-2011 / 14:07:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16597	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16598
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16599	actionEdit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16600	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16601
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16602	\| entry dlg \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16603	entry := managerPerMatchingModule at: selectedManagerPerMatchingModuleHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	16604	dlg := PerModuleManagerSettingDialog new.
10301 1ec2ef0050ca Fix vrany parents: 10299 diff changeset	16605	dlg package: entry package.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16606	dlg manager: entry manager.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16607	dlg open ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16608	entry package: dlg package.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16609	entry manager: dlg manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16610	entry changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16611	self updateModifiedChannel.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16612	]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16613
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	16614	"Modified: / 29-03-2012 / 11:53:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16615	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16616
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16617	actionMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16618	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16619
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16620	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16621	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16622	idx == managerPerMatchingModule size ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16623	managerPerMatchingModule swap: idx with: idx + 1.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16624	selectedManagerPerMatchingModuleHolder value: idx + 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16625
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16626	"Modified: / 09-07-2011 / 13:23:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16627	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16628
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16629	actionMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16630	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16631
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16632	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16633	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16634	idx == 1 ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16635	managerPerMatchingModule swap: idx - 1 with: idx.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16636	selectedManagerPerMatchingModuleHolder value: idx - 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16637
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16638	"Modified: / 09-07-2011 / 13:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16639	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16640
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16641	actionRemove
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16642	\|idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16643
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16644	idx := self selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16645	managerPerMatchingModule removeIndex:idx.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16646	managerPerMatchingModule size >= idx
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16647	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16648	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16649	[ managerPerMatchingModule size >= (idx - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16650	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx - 1. ]. ].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16651
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16652	"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	16653	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16654
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16655	actionTest
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16656	<resource: #uiCallback>
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16657
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16658	Tools::SourceCodeManagerConfigurationTestTool open
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16659
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16660	"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	16661	!
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16662
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16663	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16664	(self listOfModules includes:module) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16665	self listOfModules add:module; sort.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16666	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16667	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16668
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16669	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16670
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16671	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16672	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16673
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16674	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16675	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16676
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16677	self verboseSourceCodeAccess value:(AbstractSourceCodeManager verboseSourceCodeAccess).
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16678	self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16679
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16680	self hasManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16681	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16682	self localSourceFirst value:Class tryLocalSourceFirst.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16683	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16684
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16685	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16686	manager forgetDisabledModules.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16687	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16688	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16689	self useManager value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16690	self localSourceFirst value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16691	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16692
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16693	self managerPerMatchingModule removeAll.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16694	AbstractSourceCodeManager managerPerMatchingModuleDefinitions do:[:each \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16695	self managerPerMatchingModule add: each copy
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16696	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16697
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16698	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16699	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16700
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16701	infoPerModule := eachManager repositoryInfoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16702	infoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16703	rootsPerModule at:module put:(Array with:eachManager with:info).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16704	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16705	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16706
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	16707	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	16708
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16709	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16710
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16711	rootsPerModule notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16712	self listOfModules removeAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16713	listOfModules addAll:rootsPerModule keys asList.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16714	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16715	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16716
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16717	"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	16718	"Modified (format): / 27-07-2012 / 12:36:19 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16719	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16720
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16721	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16722	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16723
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16724	AbstractSourceCodeManager verboseSourceCodeAccess:(self verboseSourceCodeAccess value).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16725	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16726	Class tryLocalSourceFirst:self localSourceFirst value.
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16727	currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16728
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16729	(self hasManager and:[self useManager value]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16730	manager ~~ self selectedManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16731	manager := nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16732	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16733
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16734	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16735	manager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16736	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16737	manager := self availableManagers first.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16738	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16739	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16740	Smalltalk at:#SourceCodeManager put:manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16741
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16742	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16743	\| nm fn\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16744
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16745	nm := self sourceCacheDir value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16746	nm notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16747	(fn := nm asFilename) exists ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16748	(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16749	fn recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16750	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16751	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16752	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16753	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16754	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16755	(fn isWritableDirectory and:[fn isReadable]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16756	AbstractSourceCodeManager cacheDirectoryName:nm.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16757	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16758	self warn:'Invalid sourceCache directory.'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16759	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16760	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16761	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16762
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16763	AbstractSourceCodeManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16764	managerPerMatchingModuleDefinitions:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16765	managerPerMatchingModule asOrderedCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16766
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16767	self availableManagers do:[:eachManager \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16768	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16769
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16770	modules := rootsPerModule select:[:entry \| entry first == eachManager].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16771	infoPerModule := Dictionary new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16772	modules keysAndValuesDo:[:module :entry \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16773	entry first == eachManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16774	infoPerModule at:module put:(entry second).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16775	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16776	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16777	eachManager repositoryInfoPerModule:infoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16778	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16779
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16780	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16781
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16782	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16783	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16784	Smalltalk at:#SourceCodeManager put:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16785	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16786
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	16787	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	16788
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16789	"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	16790	"Modified: / 27-07-2012 / 12:36:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16791	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16792
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16793	browseSourceCache
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16794	<resource: #uiCallback>
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16795
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16796	\|cacheDir\|
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16797
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16798	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16799	cacheDir isNil ifTrue:[
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16800	AbstractSourceCodeManager cachingSources ifTrue:[
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16801	AbstractSourceCodeManager initCacheDirPath.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16802	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16803	cacheDir isNil ifTrue:[
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16804	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	16805	^ self.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16806	].
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16807	] ifFalse:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16808	(Dialog confirm:'No cache directory defined. Setup now?') ifTrue:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16809	AbstractSourceCodeManager cachingSources:true.
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16810	self browseSourceCache
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16811	].
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16812	].
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16813	].
17653 091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	16814	FileBrowser default openOn:cacheDir
091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	16815
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16816	"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	16817	"Modified: / 01-09-2017 / 14:03:40 / cg"
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16818	!
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16819
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16820	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16821	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16822	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16823
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16824	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16825	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16826
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16827	fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16828	\|p\|
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16829
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16830	FillCacheProcess notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16831	FillCacheProcess terminate
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16832	].
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16833	FillCacheProcess := p :=
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16834	[
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16835	Transcript showCR:'Fill cache background process started...'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16836	[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16837	Smalltalk allClasses do:[:eachClass \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16838	eachClass source
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16839	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16840	] ensure:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16841	(FillCacheProcess == p) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16842	FillCacheProcess := nil
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16843	].
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16844	Transcript showCR:'Fill cache background process finished.'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16845	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16846	] forkAt:(Processor systemBackgroundPriority)
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16847
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16848	"Modified: / 19-06-2017 / 17:26:29 / cg"
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16849	!
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16850
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16851	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16852	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16853
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16854	"Modified: / 30-09-2011 / 13:34:01 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16855	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16856
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16857	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16858
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16859	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16860
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16861	acceptChannel value:true.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16862	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	16863	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16864	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16865	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16866	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	16867	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16868	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16869
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16870	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16872	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16873	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16874	manager notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16875	repositoryHolder value: manager repositoryName.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16876	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16877	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16878
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16879	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16880	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16881
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16882	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16883
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16884	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16885
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16886	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16887	acceptChannel := TriggerValue new.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16888	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16889	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16890	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16891
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16892	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16893	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16894
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16895	"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	16896	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16897
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16898	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16899	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16900	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16901	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	16902	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16903	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16904
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16905	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16906	self basicNew availableManagers
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16907	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16908
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16909	"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	16910	"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	16911	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16912
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16913	canMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16914	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16915	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16916	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16917	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16918	and:[sel ~~ 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16919	and:[sel ~~ managerPerMatchingModule size]]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16920	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16921
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16922	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16923	"Created: / 09-07-2011 / 14:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16924	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16925
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16926	canMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16927	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16928	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16929	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16930	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16931	and:[sel > 1]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16932	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16933
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16934	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16935	"Created: / 09-07-2011 / 14:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16936	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16937
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16938	canRemoveManagerPerPackageEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16939	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16940	with:[:sel :use \| sel notNil and:[sel ~~ 0 and:[use]] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16941	argument:(self selectedManagerPerMatchingModuleHolder)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16942	argument:(self useManager)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16943
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16944	"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	16945	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16946
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16947	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16948
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16949	checkClassesWhenCheckingIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16950	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16951	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16952	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16953	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16954	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16955
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16956	keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16957
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16958	keepMethodSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16959	keepMethodSource := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16960	keepMethodSource onChangeSend:#updateModifiedChannel to:self
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16961	].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16962	^ keepMethodSource.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16963	!
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16964
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16965	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16966
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16967	listOfModules isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16968	rootsPerModule notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16969	listOfModules := rootsPerModule keys asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16970	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16971	listOfModules sort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16972	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16973	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16974	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16975	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16976
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16977	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16979	localSourceFirst isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16980	localSourceFirst := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16981	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16982	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16983	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16984	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16985
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16986	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16987	managerIsCVSSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16988	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16989	[SourceCodeManager isCVS]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16990	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16991	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16992
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16993	"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	16994	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16995
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	16996	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	16997	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16998	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16999	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17000	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17001	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17002
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17003	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17004	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17005
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17006	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17007	managerIsStoreSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17008	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17009	[SourceCodeManager isStore]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17010	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17011	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17012
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17013	"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	17014	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17015
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17016	managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17017	managerPerMatchingModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17018	managerPerMatchingModule := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17019	managerPerMatchingModule onChangeSend:#updateModifiedChannel to:self
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17020	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17021	^ managerPerMatchingModule.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17022
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17023	"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	17024	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17025
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17026	managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17027	managerTypeIndexToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17028	managerTypeIndexToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17029	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17030	^ managerTypeIndexToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17031
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17032	"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	17033	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17034
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17035	managerTypeToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17036	managerTypeToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17037	managerTypeToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17038	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17039	^ managerTypeToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17040
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17041	"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	17042	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17043
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17044	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17045	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17046
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17047	"Created: / 16-08-2006 / 11:22:03 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17048	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17049
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17050	packageToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17051	packageToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17052	packageToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17053	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17054	^ packageToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17055
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17056	"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	17057	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17058
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17059	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17060
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17061	perModuleFieldsEnableHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17062	perModuleFieldsEnableHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17063	perModuleFieldsEnableHolder addDependent:self.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17064	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17065	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17066	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17067
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17068	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17069	perModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17070	perModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17071	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17072	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17073	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17074	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17075
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17076	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17077	perModuleRootModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17078	perModuleRootModule := ValueHolder new.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17079	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17080	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17081	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17082
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17083	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17084
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17085	removeEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17086	removeEnabled := false asValue.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17087	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17088	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17089	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17090
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17091	selectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17092	\|idx availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17093
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17094	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17095	availableManagers size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17096	^ availableManagers anElement
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17097	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17098
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17099	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17100	(idx == 0 or:[idx isNil]) ifTrue:[ ^ nil].
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17101	^ availableManagers at:idx
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17102
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17103	"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	17104	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17105
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17106	selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17107	selectedManagerPerMatchingModuleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17108	selectedManagerPerMatchingModuleHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17109	selectedManagerPerMatchingModuleHolder addDependent:self.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17110	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17111	^ selectedManagerPerMatchingModuleHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17112
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17113	"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	17114	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17115
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17116	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17117	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17118
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17119	selectedManagerTypeIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17120	selectedManagerTypeIndexHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17121	selectedManagerTypeIndexHolder onChangeEvaluate:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17122	selectedManager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17123	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17124	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17125	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17126	self updateModifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17127	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17128
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17129	self updateSelectedManager.
6897 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	^ selectedManagerTypeIndexHolder.
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	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17134	"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	17135	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17136
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17137	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17138	selectedPerModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17139	selectedPerModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17140	selectedPerModuleRoot addDependent:self.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17141	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17142	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17143	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17144
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17145	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17146	sourceCacheDir isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17147	sourceCacheDir := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17148	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17149	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17150	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17151	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17152
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17153	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17154	useManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17155	useManager := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17156	useManager onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17157	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17158	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17159	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17160
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17161	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17162	verboseSourceCodeAccess isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17163	verboseSourceCodeAccess := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17164	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17165	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17166	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17167	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17168
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17169	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17170
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17171	selectedPerModuleRootChanged
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17172	\|module entry firstEntry
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17173	removeEnabled perModuleRootModule perModuleRoot\|
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17174
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17175	self acceptChannel value:true.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17176	module := self selectedPerModuleRoot value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17177	module isNil ifTrue:[
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17178	removeEnabled := false.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17179	perModuleRootModule := ' '.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17180	perModuleRoot := ''.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17181	] ifFalse:[
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17182	entry := rootsPerModule at:module ifAbsent:#().
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17183	firstEntry := entry first.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17184	(firstEntry = CVSSourceCodeManager) ifTrue:[
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17185	removeEnabled := true.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17186	perModuleRootModule := module.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17187	perModuleRoot := (entry at:2).
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17188	] ifFalse:[
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17189	removeEnabled := false.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17190	perModuleRootModule := module , ' ',('<<use ',firstEntry managerTypeName,'>>') allBold.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17191	perModuleRoot := ''.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17192	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17193	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17194
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17195	self removeEnabled value:removeEnabled.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17196	self perModuleRootModule value:perModuleRootModule.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17197	self perModuleRoot value:perModuleRoot.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17198	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17199
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17200	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17201	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17202
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17203	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17204
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17205	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17206
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17207	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17208	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17209
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17210	(fn := nm asFilename) exists ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17211	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17212	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17213	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17214	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17215	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17216	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17217	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17218	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17219	recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17220	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17221	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17222	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17223	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17224	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17225
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17226	(fn isDirectory) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17227	self warn:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17228	stringWithCRs:'Not a directory: "%1"'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17229	with:nm).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17230	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17231	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17232	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17233
13243 6184dc32e5cb Use #isWritableDirectory Stefan Vogel <sv@exept.de> parents: 13224 diff changeset	17234	(fn isWritableDirectory and:[fn isReadable]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17235	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17236	stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17237	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17238	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17239	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17240	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17241	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17242	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17243	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17244	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17245	makeExecutableForAll.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17246	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17247	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17248	"/ (self confirm:(resources
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17249	"/ 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	17250	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17251	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17252	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17253	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17254	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17255	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17256	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17257	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17258	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17259
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17260	update:something with:aParameter from:changedObject
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17261	\|idx entry\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17262
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17263	changedObject == sourceCacheDir ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17264	self sourceDirChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17265	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17266	^ self
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17267	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17268
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17269	changedObject == selectedManagerPerMatchingModuleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17270	idx := changedObject value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17271	(idx notNil and:[idx ~~ 0]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17272	entry := self managerPerMatchingModule at:idx.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17273	self packageToAddHolder value:(entry package).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17274	self managerTypeToAddHolder value:(entry managerTypeName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17275	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17276	^ self.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17277	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17278
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17279	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17280
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17281	"Modified: / 18-04-2011 / 21:23:08 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17282	"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	17283	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17284
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17285	updateSelectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17286	\|selectedManagerTypeIndex availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17287
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17288	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17289
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17290	selectedManagerTypeIndex := availableManagers indexOf:SourceCodeManager.
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17291	selectedManagerTypeIndex == 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17292	availableManagers size == 1 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17293	selectedManagerTypeIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17294	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17295	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	17296	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17297	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17298
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17299	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17300
14252 0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17301	editorHelpRelativeWikiURL
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17302	"the relative URL of the dialog-description in the Wiki"
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17303
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17304	^ 'Settings_SourceCodeManagerSettings'
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17305	!
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17306
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17307	helpFilename
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17308	^ 'Launcher/sourceRepositorySetup.html'
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17309
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17310	"Modified: / 04-07-2011 / 17:22:39 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17311	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17312
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17313	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17314
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17315	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17316	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17317
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17318	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17319
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17320	managerTypePerModule := Dictionary new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17321
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17322	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	17323	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17324
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17325	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17326	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17327
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17328	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17329	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17330
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17331	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17332	eachManager repositoryInfoPerModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17333	keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17334	module withoutSeparators ~= module ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17335	self halt:'should not happen any longer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17336	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17337	rootsPerModule at:module put:(Array with:eachManager with:info)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17338	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17339	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17340
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17341	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17342
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17343	"Modified: / 08-02-2017 / 00:30:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17344	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17345
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17346	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17347
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17348	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17349	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17350
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17351	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17352	cvsDir isDirectory ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17353	cvsRootFile := cvsDir construct:'Root'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17354	cvsRootFile isReadable ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17355	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17356	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17357	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17358	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17359	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17361	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17362	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17363
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17364	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17365	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17366
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17367	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17368	(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	17369	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17370	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17371
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17372	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17373	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17374
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17375	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17376	ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17377
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17378	((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17379	ifTrue:[^ true].
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17380
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17381	((AbstractSourceCodeManager managerPerMatchingModuleDefinitions)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17382	~= (self managerPerMatchingModule asOrderedCollection)) ifTrue:[^ true].
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17383
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17384	(AbstractSourceCodeManager verboseSourceCodeAccess
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17385	~= self verboseSourceCodeAccess value) ifTrue:[^ true].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17386
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17387	self availableManagers do:[:mgr \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17388	\|modules\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17389
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17390	modules := rootsPerModule select:[:entry \| entry first == mgr].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17391
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17392	mgr repositoryInfoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17393	((modules includesKey:module) and:[info = (modules at:module) second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17394	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17395	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17396	modules keysAndValuesDo:[:module :info\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17397	((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17398	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17399	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17400	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17401
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17402	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	17403
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17404	"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	17405	"Modified: / 27-07-2012 / 12:35:40 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17406	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17407
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17408	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'help specs'!
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17409
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17410	helpSpec
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17411	"This resource specification was automatically generated
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17412	by the UIHelpTool of ST/X."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17413
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17414	"Do not manually edit this!! If it is corrupted,
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17415	the UIHelpTool may not be able to read the specification."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17416
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17417	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17418	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17419	"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17420
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17421	<resource: #help>
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17422
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17423	^ super helpSpec addPairsFrom:#(
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17424
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17425	#manager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17426	'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	17427
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17428	#packageMatchPattern
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17429	'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	17430
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17431	)
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17432
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17433	"Created: / 01-12-2011 / 19:52:19 / cg"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17434	! !
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17435
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17436	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'interface specs'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17437
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17438	windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17439	"This resource specification was automatically generated
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17440	by the UIPainter of ST/X."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17441
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17442	"Do not manually edit this!! If it is corrupted,
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17443	the UIPainter may not be able to read the specification."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17444
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17445	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17446	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog andSelector:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17447	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog new openInterface:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17448	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog open
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17449	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17450
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17451	<resource: #canvas>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17452
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17453	^
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17454	#(FullSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17455	name: windowSpec
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17456	uuid: '60fff4f4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17457	window:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17458	(WindowSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17459	label: 'Per Module Source Code Manager'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17460	name: 'Per Module Source Code Manager'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17461	uuid: '60fff846-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17462	min: (Point 10 10)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17463	bounds: (Rectangle 0 0 581 98)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17464	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17465	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17466	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17467	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17468	(ViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17469	name: 'Content'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17470	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	17471	uuid: '60fffab2-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17472	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17473	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17474	collection: (
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17475	(LabelSpec
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17476	label: 'Package ID (Matchpattern):'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17477	name: 'Label15'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17478	layout: (LayoutFrame 2 0 9 0 250 0 31 0)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17479	activeHelpKey: packageMatchPattern
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17480	uuid: '60fffc10-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17481	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17482	adjust: left
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17483	)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17484	(ComboBoxSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17485	name: 'ComboBox1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17486	layout: (LayoutFrame 250 0 9 0 -2 1 31 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17487	activeHelpKey: packageMatchPattern
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17488	uuid: '60fffdb4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17489	enableChannel: useManager
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17490	model: packageHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17491	comboList: samplePackageList
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17492	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17493	(LabelSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17494	label: 'Manager:'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17495	name: 'Label16'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17496	layout: (LayoutFrame 2 0 37 0 250 0 59 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17497	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17498	uuid: '61000048-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17499	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17500	adjust: left
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17501	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17502	(ComboListSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17503	name: 'ComboList2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17504	layout: (LayoutFrame 250 0 39 0 -2 1 61 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17505	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17506	uuid: '61000188-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17507	model: managerNameHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17508	comboList: availableManagerTypeNames
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17509	useIndex: false
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17510	hidePullDownMenuButton: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17511	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17512	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17513
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17514	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17515	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17516	(HorizontalPanelViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17517	name: 'Buttons'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17518	layout: (LayoutFrame 0 0 -30 1 -16 1 0 1)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17519	uuid: '61000336-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17520	horizontalLayout: fit
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17521	verticalLayout: center
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17522	horizontalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17523	verticalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17524	reverseOrderIfOKAtLeft: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17525	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17526	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17527	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17528	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17529	label: 'Cancel'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17530	name: 'Button2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17531	uuid: '610004e4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17532	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17533	model: doCancel
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17534	extent: (Point 279 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17535	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17536	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17537	label: 'OK'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17538	name: 'Button1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17539	uuid: '610006c4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17540	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17541	model: doAccept
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17542	enableChannel: doAcceptEnabled
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17543	extent: (Point 280 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17544	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17545	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17546
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17547	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17548	keepSpaceForOSXResizeHandleH: true
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	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17551
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17552	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17553	)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17554	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17555
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17556	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'accessing'!
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17557
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17558	manager
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17559
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17560	\| m mn\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17561	mn := self managerNameHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17562	m := self availableManagers detect:[:mgr \| mgr managerTypeName = mn] ifNone:nil.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17563	^m
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17564
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17565	"Created: / 09-07-2011 / 13:07:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17566	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17567
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17568	manager: aSourceCodeManager
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17569
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17570	self managerNameHolder value: aSourceCodeManager managerTypeName
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17571
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17572	"Created: / 09-07-2011 / 13:02:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17573	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17574
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17575	package
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17576
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17577	^self packageHolder value
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17578
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17579	"Created: / 09-07-2011 / 13:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17580	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17581
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17582	package: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17583
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17584	self packageHolder value: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17585
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17586	"Created: / 09-07-2011 / 13:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17587	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17588
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17589	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'aspects'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17590
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17591	availableManagerTypeNames
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17592	^ self availableManagers collect:[:cls \| cls managerTypeName].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17593
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17594	"Created: / 16-08-2006 / 11:16:25 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17595	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17596
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17597	availableManagers
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17598	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17599	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17600	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17601	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17602	^ availableManagers.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17603
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17604	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17605	self basicNew availableManagers
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17606	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17607
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17608	"Created: / 16-08-2006 / 11:01:10 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17609	"Modified: / 18-04-2011 / 19:05:47 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17610	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17611
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17612	doAcceptEnabled
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17613	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17614
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17615	\|holder\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17616
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17617	(holder := builder bindingAt:#doAcceptEnabled) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17618	holder := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17619	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17620	[:package :manager\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17621	package value notEmptyOrNil and:[manager value notNil]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17622	argument: self packageHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17623	argument: self managerHolder.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17624
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17625	builder aspectAt:#doAcceptEnabled put:holder.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17626	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17627	^ holder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17628
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17629	"Modified: / 09-07-2011 / 13:00:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17630	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17631
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17632	managerHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17633	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17634
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17635	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17636	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17637	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17638	^ managerNameHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17639
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17640	"Modified (comment): / 03-12-2011 / 11:30:58 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17641	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17642
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17643	managerNameHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17644	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17645
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17646	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17647	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17648	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17649	^ managerNameHolder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17650
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17651	"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	17652	"Modified (comment): / 03-12-2011 / 11:30:45 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17653	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17654
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17655	packageHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17656	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17657
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17658	packageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17659	packageHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17660	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17661	^ packageHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17662
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17663	"Modified (comment): / 03-12-2011 / 11:30:51 / cg"
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17664	!
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17665
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17666	samplePackageList
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17667	<resource: #uiAspect>
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17668
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17669	\|modules\|
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17670
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	17671	modules := Smalltalk allPackageIDs
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17672	collect:[:packageId \| packageId asPackageId module ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17673	as:Set.
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17674
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	17675	modules remove:(PackageId noProjectID) ifAbsent:[].
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17676	modules := modules collect:[:packageId \| packageId , ':*' ].
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17677	^ modules asSortedCollection
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17678
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17679	"Created: / 12-03-2012 / 11:35:40 / cg"
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	17680	"Modified: / 13-03-2012 / 13:12:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17681	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17683	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17684
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17685	standardStyles
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17686	"only those are presented initially"
db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17687
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17688	^ #(
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17689	'adwaita'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17690	"/ 'decWindows'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17691	'iris'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17692	'macosx'
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17693	'macosx_yosemite'
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17694	'motif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17695	'mswindows8'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17696	'mswindows95'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17697	'mswindowsXP'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17698	'mswindowsxp'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17699	'mswindowsVista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17700	'mswindowsvista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17701	'napkin'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17702	"/ 'next'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17703	"/ 'normal'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17704	"/ 'os2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17705	'sgmotif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17706	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17707	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17708	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17709
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17710	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17711
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17712	closePreviewButtonImage
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17713	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17714	^ ToolbarIconLibrary removeTabIcon
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17715
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17716	"Modified: / 28-07-2018 / 09:59:43 / Claus Gittinger"
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17717	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17718
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17719	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17720	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17721	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17722
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17723	"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	17724	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	17725
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17726	"
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17727	self defaultIcon inspect
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17728	ImageEditor openOnClass:self andSelector:#defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17729	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17730	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17731
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17732	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17733
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17734	^Icon
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17735	constantNamed:'AbstractSettingsApplication::StyleSettingsAppl defaultIcon'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17736	ifAbsentPut:[(Depth8Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17737	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@ D@@@@@@@@@@@@@@@@@@@@@@@DB@ HB@P@@@@@@@@@@@@@@@@@@@@DCA@HB@ DA@@@@@@@@@@@@
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17738	@@@@@@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	17739	@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	17740	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	17741	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	17742	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	17743	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17744
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17745	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17746
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17747	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17748	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17749	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17751	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17752	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17754	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	17755	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	17756	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	17757	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17758	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17760	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17761
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17762	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17763	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17764	name: windowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17765	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17766	(WindowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17767	label: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17768	name: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17769	min: (Point 10 10)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17770	bounds: (Rectangle 0 0 562 661)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17771	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17772	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17773	(SpecCollection
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17774	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17775	(VariableVerticalPanelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17776	name: 'VariableVerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17777	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -65 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17778	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17779	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17780	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17781	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17782	name: 'Box1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17783	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17784	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17785	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17786	(TextEditorSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17787	name: 'TextEditor1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17788	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	17789	style: (FontDescription arial medium roman 9)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17790	model: noticeLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17791	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17792	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17793	isReadOnly: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17794	hasKeyboardFocusInitially: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17795	postBuildCallback: postBuildHelpLabel:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17796	viewClassName: 'TextView'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17797	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17798	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17799
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17800	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17801	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17802	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17803	name: 'Box2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17804	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17805	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17806	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17807	(VerticalPanelViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17808	name: 'VerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17809	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	17810	horizontalLayout: fit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17811	verticalLayout: topFit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17812	horizontalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17813	verticalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17814	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17815	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17816	collection: (
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17817	(ViewSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17818	name: 'Box4'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17819	component:
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17820	(SpecCollection
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17821	collection: (
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17822	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17823	label: 'standard styles only'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17824	name: 'CheckBox1'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17825	layout: (LayoutFrame 0 0 0 0 -150 1 0 1)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17826	model: showStandardStylesOnly
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17827	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17828	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17829	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17830	label: 'Preview'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17831	name: 'CheckBox2'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17832	layout: (AlignmentOrigin 0 1 17 0 1 0.5)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17833	model: previewVisibleHolder
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17834	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17835	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17836	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17837
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17838	)
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17839	extent: (Point 562 35)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17840	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17841	(SequenceViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17842	name: 'StyleList'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17843	model: selectedStyle
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17844	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17845	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17846	doubleClickSelector: doubleClickAt:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17847	useIndex: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17848	sequenceList: styleList
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17849	extent: (Point 562 334)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17850	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17851	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17852
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17853	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17854	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17855	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17856
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	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17859	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17860
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17861	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17862	handles: (Any 0.37 1.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17863	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17864	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17865	name: 'Box3'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17866	layout: (LayoutFrame 0 0 -65 1 0 1 0 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17867	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17868	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17869	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17870	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17871	label: 'Label'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17872	name: 'Label1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17873	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	17874	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17875	labelChannel: infoLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17876	resizeForLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17877	adjust: left
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17878	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17879	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17880
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17881	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17882	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17883	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17884	label: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17885	name: 'PreviewLabel'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17886	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17887	level: 0
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17888	borderWidth: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17889	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17890	backgroundColor: (Color 87.0 87.0 87.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17891	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17892	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17893	(NonScrollableArbitraryComponentSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17894	name: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17895	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17896	level: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17897	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17898	hasBorder: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17899	component: ImageView
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17900	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17901	(ActionButtonSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17902	label: 'closePreviewButtonImage'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17903	name: 'ClosePreviewButton'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17904	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17905	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17906	hasCharacterOrientedLabel: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17907	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17908	model: closePreview
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17909	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17910	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17911
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17912	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17913	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17914	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17915
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17916	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17917
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17918	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17919	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17920	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17921
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17922	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	17923	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17924
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	17925	newStyle := self selectedStyle value asSymbol.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	17926
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17927	self withWaitCursorDo:[
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	17928	Transcript showCR:'Change style to ' , newStyle , ' ...'.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	17929	View defaultStyle:newStyle.
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	17930	currentUserPrefs viewStyle:newStyle.
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	17931	currentUserPrefs fontPreferencesChanged. "/ force into class defaults
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17932	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	17933	self reopenToolsAfterChangedViewStyleSetting.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	17934
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	17935	"Modified: / 24-11-2016 / 18:02:04 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17936	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17937
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17938	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17939	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17940	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17941
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17942	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17943
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17944	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17945	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17947	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17948
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17949	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17950
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17951	infoLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17952	infoLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17953	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17954	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17955	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17956
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17957	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17958
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17959	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17960	noticeLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17961	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17962	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17963	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17964
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17965	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17966
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17967	previewVisibleHolder isNil ifTrue:[
16924 b1a7600d559b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16923 diff changeset	17968	previewVisibleHolder := false asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17969	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17970	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17971	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17972	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17973
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17974	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17976	selectedStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17977	selectedStyle := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17978	selectedStyle addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17979	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17980	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17981	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17982
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17983	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17984
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17985	showStandardStylesOnly isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17986	showStandardStylesOnly := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17987	showStandardStylesOnly addDependent:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17988	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17989	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17990	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17991
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17992	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	17993
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	17994	styleList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17995	styleList := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17996	styleList addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	17997	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	17998	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17999	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18001	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18002
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18003	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18004	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18006	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18007	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18008	nm notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18009	sheet := ViewStyle fromFile:(nm , '.style').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18010	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18011	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18012	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18013	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18014	comment size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18015	comment := comment first
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18016	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18017	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18018
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18019	self previewVisibleHolder value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18020	self builder notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18021	labelView := self componentAt:#PreviewLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18022	imgView := (self componentAt:#Preview).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18023
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18024	previewFile notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18025	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
16923 20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18026	].
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18027	previewImage notNil ifTrue:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18028	labelView label:'Preview'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18029	imgView adjust:#fitBig; image:previewImage.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18030	] ifFalse:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18031	labelView label:'Sorry - no preview available'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18032	imgView image:nil.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18033	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18034	labelView forceResizeHorizontally.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18035	]
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18036	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18037	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18038
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18039	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18040	changedObject == self showStandardStylesOnly ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18041	self updateList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18042	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18043	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18044	changedObject == self selectedStyle ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18045	self changeInfoLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18046	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18047	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18048	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18049	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18050	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18051	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18052	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18053	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18054
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18055	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18056
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18057	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18059	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18060	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18061	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18062	"/ Filename isCaseSensitive ifFalse:[
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18063	"/ listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18064	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18065	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18066	self showStandardStylesOnly value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18067	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18068	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18069
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18070	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18071	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18072	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18073
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18074	"Modified: / 06-02-2014 / 14:58:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18075	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18076
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18077	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18078
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18079	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18080	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18081	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18082
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18083	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18084
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18085	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18086	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18087	self changeInfoLabel
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18088	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18089
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18090	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18092	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18093
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18094	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18095
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18096	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18097
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18098	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18099	someRsrcFile isNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18100	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18101	someRsrcFile isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18102	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18103	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18104	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18105	someRsrcFile notNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18106	resourceDir := someRsrcFile asFilename directoryName
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18107	] ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18108	resourceDir := Smalltalk getSystemFileName:'resources'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18109	resourceDir isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18110	self warn:'no styles found (missing ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18111	^ self
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18112	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18113	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18114
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18115	[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18116	styleDirectoryContents := resourceDir asFilename directoryContents.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18117	] on:FileStream openErrorSignal do:[:ex\|
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18118	self warn:'no styles found (unaccessible ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18119	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18120	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18121
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18122	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	18123	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18124	self showStandardStylesOnly value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18125	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18126	self selectedStyle value:(View defaultStyle).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18127	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	18128
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18129	"Modified: / 08-02-2017 / 00:29:59 / cg"
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18130	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18131
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18132	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18133	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18134	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18135	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18136
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18137	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18138
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18139	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18140
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18141	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18142	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18143
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18144	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18145
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18146	emphasisList
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18147	^ self emphasisMappingList collect:#first
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18148	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18149
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18150	emphasisMappingList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18151	"self emphasisMappingList"
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18152
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18153	^ {
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18154	#( #'normal' #normal ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18155	#( #'underline' #underline) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18156	{ 'red underline' . { #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18157	#( #'underwave' #underwave) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18158	{ 'red underwave' . { #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18159	#( #'bold' #bold ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18160	#( 'bold + underline' #(bold underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18161	{ 'bold + red underline' . { #bold . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18162	#( 'bold + underwave' #(bold underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18163	{ 'bold + red underwave' . { #bold . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18164	#( #'italic' #italic ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18165	#( 'italic + underline' #(italic underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18166	{ 'italic + red underline'. { #italic . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18167	#( 'italic + underwave' #(italic underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18168	{ 'italic + red underwave'. { #italic . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18169	#( #'reverse' #reverse )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18170	}
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18171	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18172
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18173	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18174
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18175	^ 'methodSelector:methodArg
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18176	"method comment: some stupid code to show the current settings"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18177
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18178	\|methodVar\| "/ an end-of-line comment...
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18179
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18180	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18181	self fooBarBaz:methodVar. "/ a bad message
13220 1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18182	self halt. "/ a debug message
1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18183	Error raise. "/ an error
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18184	methodVar := Array new:1.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18185	instVar := 1234. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18186	ClassVar := instVar. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18187	methodVar := ClassVar + instVar. "/ not a side effect
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18188	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18189	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18190	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18191	1 to:5 do:[:i \| self at:i + 1].
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18192	[:blockArg \| blockArg + 1].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18193	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18194	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18195	'.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18196
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18197	"Modified: / 14-02-2012 / 10:18:48 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18198	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18199
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18200	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'help specs'!
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18201
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18202	helpSpec
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18203	"This resource specification was automatically generated
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18204	by the UIHelpTool of ST/X."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18205
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18206	"Do not manually edit this!! If it is corrupted,
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18207	the UIHelpTool may not be able to read the specification."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18208
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18209	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18210	UIHelpTool openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18211	"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18212
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18213	<resource: #help>
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18214
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18215	^ super helpSpec addPairsFrom:#(
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18216
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18217	#colorSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18218	'Choose a color for the selected element type'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18219
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18220	#commonStyleSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18221	'Choose a common style, then change by clicking on the "Reset To" button'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18222
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18223	#elementSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18224	'Select the element which you want to define/modify'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18225
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18226	#emphasisSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18227	'Choose a presentation style for the selected element type'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18228
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18229	#immediateSelectorCheck
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18230	'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	18231
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18232	#resetToCommonStyle
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18233	'Press to reset to the selected common style'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18234
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18235	#syntaxColoringEnabled
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18236	'If checked, syntax coloring is enabled'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18237
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18238	#individualStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18239	'Personal style configuration'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18240
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18241	#commonStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18242	'Choose a common style'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18243
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18244	#sampleOutput
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18245	'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	18246
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18247	)
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18248
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18249	"Created: / 14-02-2012 / 10:44:21 / cg"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18250	! !
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18251
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18252	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18253
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18254	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18255	<resource: #image>
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18256	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18257	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18258	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18259	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18262	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18263	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18264
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18265	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18266	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18267	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18268	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18269	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18270	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18271	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18272	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18273	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18274	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18275	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18276	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18277	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	18278	A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18279	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	18280	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18281	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18282	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18283	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18284	fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18285	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18286	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18287	]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18288	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18289
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18290	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18291
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18292	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18293	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18294	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18295
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18296	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18297	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18298
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18299	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18300	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18301	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18302	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18303	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18304
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18305	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18306
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18307	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18308	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18309	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18310	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18311	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18312	label: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18313	name: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18314	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18315	bounds: (Rectangle 0 0 695 609)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18316	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18317	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18318	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18319	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18320	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18321	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18322	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	18323	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18324	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18325	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18326	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18327	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18328	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18329	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18330	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18331	label: 'Syntax Coloring'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18332	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18333	activeHelpKey: syntaxColoringEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18334	model: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18335	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18336	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18337	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18338	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18339	label: 'Immediate Selector Check'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18340	name: 'ImmediateSelectorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18341	activeHelpKey: immediateSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18342	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18343	model: fullSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18344	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18345	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18346	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18347	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18348	name: 'SpacingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18349	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18350	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18351	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18352	label: 'Style:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18353	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18354	activeHelpKey: individualStyleSetting
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18355	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18356	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18357	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18358	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18359	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18360	name: 'ElementSelectionBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18361	activeHelpKey: elementSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18362	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18363	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18364	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18365	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18366	label: 'Element:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18367	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18368	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18369	activeHelpKey: elementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18370	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18371	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18372	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18373	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18374	name: 'ComboList3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18375	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	18376	activeHelpKey: elementSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18377	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18378	model: syntaxElementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18379	comboList: syntaxElementList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18380	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18381	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18382	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18383	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18384
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18385	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18386	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18387	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18388	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18389	name: 'ColorBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18390	activeHelpKey: colorSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18391	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18392	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18393	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18394	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18395	label: 'Color:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18396	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18397	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18398	activeHelpKey: colorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18399	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18400	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18401	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18402	(ColorMenuSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18403	name: 'ColorMenu2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18404	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	18405	activeHelpKey: colorSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18406	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18407	model: syntaxColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18408	labelsAreColored: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18409	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18410	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18411
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18412	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18413	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18414	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18415	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18416	name: 'EmphasisBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18417	activeHelpKey: emphasisSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18418	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18419	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18420	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18421	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18422	label: 'Emphasis:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18423	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18424	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18425	activeHelpKey: emphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18426	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18427	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18428	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18429	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18430	name: 'ComboList5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18431	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	18432	activeHelpKey: emphasisSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18433	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18434	model: syntaxEmphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18435	comboList: syntaxEmphasisList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18436	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18437	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18438	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18439	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18440
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18441	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18442	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18443	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18444	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18445	name: 'ResetBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18446	activeHelpKey: resetToCommonStyle
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18447	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18448	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18449	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18450	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18451	label: 'Reset To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18452	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18453	layout: (LayoutFrame 0 0 -36 1 150 0 -6 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18454	activeHelpKey: resetToCommonStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18455	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18456	model: resetToColorScheme
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18457	enableChannel: syntaxColoring
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: 'ComboList4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18461	layout: (LayoutFrame 152 0 -36 1 0 1 -6 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18462	activeHelpKey: commonStyleSelection
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: resetListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18465	comboList: resetList
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 40)
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: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18476	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18477	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18478	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18479	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18480	name: 'SampleLabel3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18481	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18482	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18483	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18484	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18485	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18486	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18487	name: 'TextEditor2'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18488	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18489	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18490	model: coloredText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18491	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18492	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18493	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18494	hasKeyboardFocusInitially: false
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18495	extent: (Point 695 291)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18496	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18497	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18498
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18499	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18501	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18502
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18503	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18504	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18505	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18506
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18507	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18508
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18509	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18510	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18511	syntaxColoring
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18512	fullSelectorCheck
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18513	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18514	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18515
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18516	basicReadSettings
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18517	\|elementColorList elementList resetListLoc\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18518
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18519	oldUserPreferences notNil ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18520	(UserPreferences reset; current) addAll:oldUserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18521	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18522
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18523	super basicReadSettings.
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	18524
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18525	oldUserPreferences := currentUserPrefs copy.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18526	elementColorList := UserPreferences syntaxColorNames.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18527	elementList := elementColorList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18528	collect:[:each \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18529	(each endsWith:' Color')
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18530	ifTrue:[ each copyButLast:' Color' size ]
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18531	ifFalse:[each]].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18532
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18533	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18534	collect:[:entry \| entry second].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18535	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18536	self resetListSelection value:resetListLoc first.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18537	self syntaxElementList value:elementList.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18538	self syntaxElementSelection value:(elementList at:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18539	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18540
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18541	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18542
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18543	oldUserPreferences := currentUserPrefs copy.
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18544	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18545	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18546
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18547	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18548	\|prefs\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18549
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18550	"/ UserPreferences reset.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18551	prefs := currentUserPrefs. "/ UserPreferences current.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18552	changedSettings keysAndValuesDo:[:k :v \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18553	prefs at:k put:v
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18554	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18555	changedSettings := Dictionary new.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18556	"/ self flyByHelpSettingChanged. "/ reinstall
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18557	self recolor.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18558	super discardChangesAndReadSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18559	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18560
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18561	recolor
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18562	\|text dummyClass\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18563
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18564	self syntaxColoring value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18565	Class withoutUpdatingChangesDo:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18566	dummyClass := Object
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18567	subclass:#DummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18568	instanceVariableNames:'instVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18569	classVariableNames:'ClassVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18570	poolDictionaries:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18571	category:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18572	inEnvironment:nil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18573	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18574	text := SyntaxHighlighter
18048 ff4443f3cba5 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18035 diff changeset	18575	formatMethodSource:self class exampleText
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18576	in:dummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18577	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18578	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18579	text := self class exampleText.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18580	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18581	self coloredText value:text
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18582
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18583	"Modified: / 14-02-2012 / 10:13:56 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18584	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18585
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18586	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18587	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18588
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18589	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18590	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18591	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18592	self updateModifiedChannel
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18593
2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18594	"Modified (format): / 16-03-2012 / 10:32:02 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18595	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18596
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18597	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18598
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18599	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18600
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18601	coloredText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18602	coloredText := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18603	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18604	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18605	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18606
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18607	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18608
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18609	fullSelectorCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18610	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18611	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18612	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18613	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18614	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18615
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18616	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18617
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18618	resetList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18619	resetList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18620	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18621	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18622
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18623	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18624	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18625
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18626	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18627
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18628	resetListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18629	resetListSelection := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18630	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18631	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18632	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18633
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18634	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18635
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18636	syntaxColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18637	syntaxColor := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18638	syntaxColor addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18639	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18640	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18641	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18643	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18644
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18645	syntaxColoring isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18646	syntaxColoring := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18647	syntaxColoring addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18648	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
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	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18651	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18652
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18653	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18654	syntaxElementList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18655	syntaxElementList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18656	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18657	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18658
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18659	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18660	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18661
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18662	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18663
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18664	syntaxElementSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18665	syntaxElementSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18666	syntaxElementSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18667	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18668	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18669
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18670	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18671	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18672
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18673	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18674	syntaxEmphasisList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18675	syntaxEmphasisList := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18676	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18677	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18678
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18679	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18680	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18681
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18682	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18683
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18684	syntaxEmphasisSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18685	syntaxEmphasisSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18686	syntaxEmphasisSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18687	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18688	^ syntaxEmphasisSelection.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18691	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
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	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18694	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18695
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18696	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18697	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18698
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18699	syntaxColorChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18700	\|prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18701
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18702	prefKey := self syntaxColorSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18703	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18704	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18705	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18706	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18707	currentUserPrefs at:prefKey put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18708	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18709	self updateModifiedChannel
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	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18713	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18714
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	18715	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	18716	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18717	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18718	"/ self recolor.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18719	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18720
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18721	syntaxEmphasisSelectionChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18722	\|em prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18723
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18724	prefKey := self syntaxEmphasisSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18725	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18726	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18727	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18728	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18729	em := self getEmphasis:(self syntaxEmphasisSelection value ? 'normal') string.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18730	currentUserPrefs at:prefKey put:em.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18731
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18732	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18733	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18734	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18735
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18736	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18737	changedObject == self syntaxElementSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18738	self syntaxElementSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18739	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18740	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18741	changedObject == self syntaxColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18742	self syntaxColorChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18743	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18744	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18745	changedObject == self syntaxEmphasisSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18746	self syntaxEmphasisSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18747	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18748	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18749	changedObject == self syntaxColoring ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18750	self recolor.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18751	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18752	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18753
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18754	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18755	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18756
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18757	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18758
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18759	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18760	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18761	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18762
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18763	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18764
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18765	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18766	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18767
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18768	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18769	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18770
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18771	self syntaxEmphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18772	value:(self class emphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18773	collect:[:lbl \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18774	lbl emphasizeAllWith:( self getEmphasis:lbl )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18775	]).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18776
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18777	changedSettings := Dictionary new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18778	resetListDictionary := Dictionary new.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18779	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18780	resetListDictionary at:(entry at:1) put:(entry at:2)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18781	].
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18782
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18783	"Modified: / 08-02-2017 / 00:30:23 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18784	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18785
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18786	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18787
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18788	emphasisDictionary := Dictionary new.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18789	self class emphasisMappingList do:[ :mapping \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18790	\|name emphasis\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18791
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18792	name := mapping first.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18793	emphasis := mapping second.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18794	emphasisDictionary at:name put:emphasis.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18795	emphasisDictionary at:emphasis put:name.
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	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18798
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18799	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18800
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18801	oldUserPreferences notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18802	(UserPreferences reset; current)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18803	addAll:oldUserPreferences;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18804	flyByHelpSettingChanged. "/ reinstall
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	super release
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18807
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18808	"Modified: / 14-02-2012 / 11:01:49 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18809	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18810
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18811	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18813	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18814	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18815
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	18816	oldUserPreferences isNil ifTrue:[^ false].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	18817
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18818	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18819	colorList do:[:syntaxElement \|
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18820	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18821	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18822	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18823	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18824	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18825	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18826	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18827	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18828	syntaxElement
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18829	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18830
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18831	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	18832
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18833	^ false
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18836	syntaxColorSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18837	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18838
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18839	elementName := key := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18840	(elementName endsWith:' Color') ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18841	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18842	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18843	^ (self syntaxColorSelectorForElement:key)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18844	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18845
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18846	syntaxColorSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18847	"/ old code - error prone
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18848	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) second
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18849	"/ ^ (aSyntaxElementsName replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18850	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18851
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18852	syntaxEmphasisSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18853	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18854
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18855	elementName := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18856	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18857	^ self syntaxEmphasisSelectorForElement:key
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18858	!
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18859
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18860	syntaxEmphasisSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18861	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) third
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18862	"/ ^ (((self syntaxColorSelectorForElement:anEmElement) upToAll: 'Color'), 'Emphasis')
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	18863	"/ asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18864	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18865
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18866	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'help specs'!
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18867
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18868	helpSpec
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18869	"This resource specification was automatically generated
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18870	by the UIHelpTool of ST/X."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18871
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18872	"Do not manually edit this!! If it is corrupted,
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18873	the UIHelpTool may not be able to read the specification."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18874
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18875	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18876	UIHelpTool openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18877	"
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18878
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18879	<resource: #help>
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18880
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18881	^ super helpSpec addPairsFrom:#(
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18882
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18883	#compactSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18884	'Arrange source code manager menu items in a compact layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18885
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18886	#inPlaceSearch
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18887	'In-place search to browser lists'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18888
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18889	#inlineSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18890	'Arrange source code manager menu items in a falt inline layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18891
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18892	#oldSCMMenuLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18893	'Arrange source code manager menu items in the old, traditional layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18894
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18895	#searchBarInBrowser
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18896	'Add a search bar to the browser (like in web browsers)'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18897
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18898	#showBookmarksBar
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18899	'Show the bookmarks bar'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18900
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18901	#showGlobalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18902	'Show a toolbar button to navigate the global visited classes history'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18903
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18904	#showLocalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18905	'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	18906
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18907	#showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18908	'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	18909
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18910	#showMethodTemplate
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18911	'Show a method code template when no method is selected'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18912
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18913	#sortAndIndentClassesByInheritance
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18914	'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	18915
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18916	#useEmbeddedTestRunner
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18917	'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	18918
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18919	#webBrowserLikeLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18920	'Use a layout similar to web browsers'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18921
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18922	)
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18923	! !
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	18924
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18925	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18926
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18927	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	18928	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	18929
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18930	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	18931
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	18932	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18933	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18934
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18935	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18936
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18937	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18938	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18939	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18940
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18941	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18942	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18943
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18944	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	18945	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	18946	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	18947	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18948	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18949
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18950	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	18951
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18952	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18953	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18954	name: windowSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18955	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18956	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18957	label: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18958	name: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18959	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18960	min: (Point 10 10)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18961	bounds: (Rectangle 0 0 569 590)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18962	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18963	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18964	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18965	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18966	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18967	name: 'SettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18968	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18969	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18970	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18971	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18972	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18973	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18974	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18975	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18976	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18977	label: 'Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18978	name: 'ToolsSettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18979	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18980	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18981	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18982	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18983	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18984	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18985	name: 'ToolSettingsVPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18986	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18987	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18988	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18989	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18990	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	18991	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18992	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18993	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18994	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18995	label: 'Use the Embedded Test Runner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18996	name: 'UseEmbeddedTestRunner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18997	activeHelpKey: useEmbeddedTestRunner
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18998	model: showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18999	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19000	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19001	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19002	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19003	label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19004	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19005	activeHelpKey: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19006	initiallyInvisible: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19007	model: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19008	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19009	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19010	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19011	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19012	label: 'Show Bookmarks Bar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19013	name: 'ShowBookmarksBar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19014	activeHelpKey: showBookmarksBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19015	model: showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19016	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19017	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19018	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19019	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19020	label: 'Sort and Indent Classes by Inheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19021	name: 'SortAndIndentClassesByInheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19022	activeHelpKey: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19023	model: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19024	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19025	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19026	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19027	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19028	label: 'Show Local Navigation History (Separate History per Browser Tab)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19029	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19030	activeHelpKey: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19031	model: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19032	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19033	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19034	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19035	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19036	label: 'Show Global Navigation History (Global History for all Browsers)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19037	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19038	activeHelpKey: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19039	model: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19040	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19041	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19042	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19043	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19044	label: 'Show Search Bar in Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19045	name: 'ShowSearchBarInBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19046	activeHelpKey: searchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19047	model: useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19048	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19049	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19050	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19051	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19052	label: 'Use in-place Search in Browser Lists (experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19053	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19054	activeHelpKey: inPlaceSearch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19055	model: useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19056	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19057	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19058	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19059	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19060	label: 'Show Method Template'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19061	name: 'MethodTemplate'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19062	activeHelpKey: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19063	model: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19064	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19065	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19066	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19067	(CheckBoxSpec
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19068	label: 'Marquee Info'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19069	name: 'CheckBox5'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19070	activeHelpKey: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19071	model: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19072	translateLabel: true
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19073	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19074	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19075	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19076
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19077	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19078	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19079	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19080
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19081	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19082	extent: (Point 569 333)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19083	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19084	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19085	label: 'Sourcecode Management Menu Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19086	name: 'MenuLayoutPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19087	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19088	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19089	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19090	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19091	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19092	(VerticalPanelViewSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19093	name: 'MenuLayoutVPanel'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19094	layout: (LayoutFrame 0 0 5 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19095	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19096	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19097	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19098	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19099	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19100	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19101	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19102	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19103	label: 'Old'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19104	name: 'SCMMenuLayoutOld'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19105	activeHelpKey: oldSCMMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19106	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19107	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19108	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19109	select: 'old'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19110	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19111	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19112	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19113	label: 'Inline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19114	name: 'SCMMenuLayoutInline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19115	activeHelpKey: inlineSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19116	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19117	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19118	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19119	select: 'inline'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19120	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19121	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19122	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19123	label: 'Compact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19124	name: 'SCMMenuLayoutCompact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19125	activeHelpKey: compactSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19126	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19127	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19128	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19129	select: 'compact'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19130	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19131	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19132	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19133
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19134	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19135	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19136	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19137
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19138	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19139	extent: (Point 569 135)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19140	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19141	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19142	label: 'Static Analysis (Lint)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19143	name: 'LintPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19144	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19145	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19146	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19147	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19148	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19149	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19150	name: 'LintPanelContent'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19151	layout: (LayoutFrame 0 0 0 0 0 1 53 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19152	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19153	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19154	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19155	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19156	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19157	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19158	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19159	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19160	name: 'DefaultRulesetBox'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19161	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19162	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19163	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19164	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19165	label: 'Default Rules:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19166	name: 'DefaultRulesetLabel'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19167	layout: (LayoutFrame 0 0 0 0 138 0 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19168	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19169	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19170	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19171	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19172	name: 'DefaultRuleset'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19173	layout: (LayoutFrame 144 0 0 0 -100 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19174	model: smallLintRulesetDefault
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19175	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19176	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19177	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19178	converter: smallLintRulesetDefaultAdaptor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19179	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19180	emptyFieldReplacementText: 'Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19181	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19182	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19183	label: 'Select'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19184	name: 'DefaultRulesetSelectButton'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19185	layout: (LayoutFrame -100 1 0 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19186	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19187	model: doSelectDefaultRuleset
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19188	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19189	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19190
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19191	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19192	extent: (Point 533 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19193	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19194	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19195	name: 'Box1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19196	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19197	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19198	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19199	(LinkButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19200	label: 'Configure Rule Sets...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19201	name: 'Button1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19202	layout: (LayoutFrame -200 1 -20 1 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19203	foregroundColor: (Color 0.0 0.0 100.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19204	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19205	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19206	model: doConfigureRulesets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19207	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19208	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19209
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19210	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19211	extent: (Point 533 25)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19212	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19213	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19214
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19215	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19216	useDynamicPreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19217	usePreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19218	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19219	)
16945 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	extent: (Point 569 92)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19223	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19224	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19225
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19228	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19229
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19230	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19231	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19232	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19233
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19234	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19235
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	19236	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	19237	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	19238	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	19239
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19240	"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	19241	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19242
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19243	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	19244	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	19245
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19246	"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	19247	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19248
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19249	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	19250	<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	19251
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19252	\| 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	19253
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19254	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	19255	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	19256	dialog accepted ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19257	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	19258	]
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19259
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19260	"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	19261	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19262
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19263	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19264
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19265	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19266	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19267	"/ showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19268	useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19269	showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19270	"/ useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19271	showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19272	showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19273	webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19274	sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19275	showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19276	showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19277	useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19278	sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19279	confirmRefactorings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19280	smallLintRulesetDefault
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19281	showMarqueeInfo
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19282	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19283
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19284	"Created: / 25-11-2011 / 15:09:28 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19285	"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	19286	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19287
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19288	confirmRefactorings
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19289
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19290	confirmRefactorings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19291	confirmRefactorings := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19292	confirmRefactorings onChangeSend:#updateModifiedChannel to:self
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19293	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19294	^ confirmRefactorings.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19295
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19296	"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	19297	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19298
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19299	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19300	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19301	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19302	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19303	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19304	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19305	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19306
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19307	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19308	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19309
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19310	showBookmarkBar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19311	showBookmarkBar := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19312	showBookmarkBar onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19313
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19314	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19315	^ showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19316
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19317	"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	19318	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19319
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19320	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19321	"return/create the 'showEmbeddedTestRunnerInBrowser' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19322
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19323	showEmbeddedTestRunnerInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19324	showEmbeddedTestRunnerInBrowser := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19325	showEmbeddedTestRunnerInBrowser onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19326	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19327	^ showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19328
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19329	"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	19330	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19331
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19332	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19333
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19334	showGlobalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19335	showGlobalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19336	showGlobalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19337	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19338	^ showGlobalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19339
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19340	"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	19341	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19342
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19343	showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19344
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19345	showLocalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19346	showLocalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19347	showLocalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19348	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19349	^ showLocalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19350
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19351	"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	19352	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19353
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19354	showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19355	showMarqueeInfo isNil ifTrue:[
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19356	showMarqueeInfo := true asValue.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19357	showMarqueeInfo onChangeSend:#updateModifiedChannel to:self
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19358	].
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19359	^ showMarqueeInfo.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19360	!
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19361
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19362	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19363	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19364
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19365	showMethodTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19366	showMethodTemplate := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19367	showMethodTemplate onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19368
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19369	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19370	^ showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19371
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19372	"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	19373	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19374
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	19375	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	19376	<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	19377
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19378	smallLintRulesetDefault isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19379	smallLintRulesetDefault := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19380	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	19381	].
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19382	^ 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	19383
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19384	"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	19385	"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	19386	!
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19387
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19388	smallLintRulesetDefaultAdaptor
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19389	^ PluggableAdaptor new
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19390	getter:[ :model \| model value isNil ifTrue:[nil] ifFalse:[model value name]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19391	setter:[ :model :value \| ]
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19392
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19393	"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	19394	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19395
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19396	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19397
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19398	sortAndIndentClassesByInheritance isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19399	sortAndIndentClassesByInheritance := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19400	sortAndIndentClassesByInheritance onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19401	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19402	^ sortAndIndentClassesByInheritance.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19403
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19404	"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	19405	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19406
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19407	sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19408	sourceCodeManagementMenuLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19409	sourceCodeManagementMenuLayout := #inline "#old" asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19410	sourceCodeManagementMenuLayout onChangeSend:#updateModifiedChannel to:self
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19411	].
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19412	^ sourceCodeManagementMenuLayout.
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19413
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19414	"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	19415	!
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19416
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19417	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19418	"return/create the 'useCodeView2InTools' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19419
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19420	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19421	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19422	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19423
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19424	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19425	^ useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19426
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19427	"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	19428	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19429
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19430	useInPlaceSearchInBrowserLists
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19431	useInPlaceSearchInBrowserLists isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19432	useInPlaceSearchInBrowserLists := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19433	useInPlaceSearchInBrowserLists onChangeSend:#updateModifiedChannel to:self
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19434	].
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19435	^ useInPlaceSearchInBrowserLists.
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19436
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19437	"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	19438	!
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19439
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19440	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19441	"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	19442	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19443
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19444	useSearchBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19445	useSearchBarInBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19446	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19447	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19448	^ useSearchBarInBrowser.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19449	!
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	webBrowserLikeLayout
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19452	"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	19453	(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	19454
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19455	webBrowserLikeLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19456	webBrowserLikeLayout := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19457	webBrowserLikeLayout onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19458	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19459	^ webBrowserLikeLayout.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19460
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19461	"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	19462	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19463
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19464	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19465
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19466	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19467	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19468	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19469
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19470	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19471
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19472	helpSpec
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19473	"This resource specification was automatically generated
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19474	by the UIHelpTool of ST/X."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19475
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19476	"Do not manually edit this!! If it is corrupted,
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19477	the UIHelpTool may not be able to read the specification."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19478
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19479	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19480	UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19481	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19482
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19483	<resource: #help>
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19484
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19485	^ super helpSpec addPairsFrom:#(
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19486
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19487	#vmInfo
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19488	'Enable/disable information messages from the Virtual Machine (VM)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19489
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19490	#vmErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19491	'Enable/disable error messages from the Virtual Machine (VM)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19492
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19493	#displayErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19494	'Enable/disable error messages from the display (X or Windows screen connection)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19495
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19496	#classInfos
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19497	'Enable/disable messages from the class library'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19498
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19499	#showToolTips
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19500	'Show tooltips (fly-by help)'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19501
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19502	#toolTipAutoHideDelay
14373 61a21c44e7f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14330 diff changeset	19503	'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	19504
14547 9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19505	#onlyShowTooltipsForActiveWindow
9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19506	'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	19507
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19508	#beepEnabled
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19509	'Enable/disable audible beeps altogether'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19510
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19511	#beepInEditor
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19512	'Enable/disable audible beeps from the editor (search found nothing, etc.)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19513
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19514	#beepForInfoDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19515	'Enable/disable audible beeps when an info dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19516
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19517	#beepForWarningDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19518	'Enable/disable audible beeps when a warning dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19519
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19520	#beepForErrorDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19521	'Enable/disable audible beeps when an error dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19522
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19523	#flyByHelpActive
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19524	'Enable/disable tooltips'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19525
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19526	#sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19527	'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	19528	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19529	! !
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19530
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19531	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19532
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19533	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19534	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19535	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19536
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19537	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19538	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19539
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19540	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19541	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19542	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19543	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19544	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19545
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19546	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19547
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19548	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19549	constantNamed:'AbstractSettingsApplication::SystemMessageSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19550	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19551	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19552	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19553	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19554	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19555	GQ$TEAPTE1\@@@@@@@@@@@@@@@<RGQ4YF!!(ZF!!TU@@@@@@@@@@@@C0<^D1LSG2@UER@ HBD"@@@@@@@@@@<OG!!LSD1< EQT HB@!!H @@@@@@@@@OC2DSD1L_
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19556	F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19557	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]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19558	mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@G @@O @@_0@@_0@@_0@@_0@@_0@@G @@G @@G @@?<@A?>@A?>@A?>@A?>@A?>@A?>@A?>@G??@G??@G??@A?>@'); yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19559	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19560
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19561	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19562
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19563	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19564	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19565	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19567	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19568	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19570	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	19571	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	19572	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	19573	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19574	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19576	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19577
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19578	^
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19579	#(FullSpec
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19580	name: windowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19581	window:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19582	(WindowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19583	label: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19584	name: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19585	flags: 1
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19586	min: (Point 10 10)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19587	bounds: (Rectangle 0 0 574 602)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19588	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19589	component:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19590	(SpecCollection
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19591	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19592	(VerticalPanelViewSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19593	name: 'VerticalPanel2'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19594	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	19595	horizontalLayout: fitSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19596	verticalLayout: topSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19597	horizontalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19598	verticalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19599	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19600	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19601	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19602	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19603	label: 'Info & Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19604	name: 'FramedBox1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19605	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19606	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19607	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19608	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19609	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19610	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19611	label: 'VM Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19612	name: 'VMInfoMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19613	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19614	activeHelpKey: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19615	model: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19616	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19617	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19618	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19619	label: 'VM Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19620	name: 'VMErrorMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19621	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19622	activeHelpKey: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19623	model: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19624	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19625	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19626	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19627	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19628	name: 'DisplayErrorMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19629	layout: (LayoutFrame 5 0 65 0 -5 1 95 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19630	activeHelpKey: displayErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19631	model: displayErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19632	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19633	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19634	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19635	label: 'Other Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19636	name: 'OtherInfoMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19637	layout: (LayoutFrame 5 0 95 0 -5 1 125 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19638	activeHelpKey: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19639	model: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19640	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19641	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19642	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19643	label: 'Send also to Transcript (in addition to Stderr)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19644	name: 'CheckBox8'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19645	layout: (LayoutFrame 5 0 149 0 -5 1 179 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19646	activeHelpKey: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19647	model: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19648	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19649	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19650	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19651
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19652	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19653	extent: (Point 564 213)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19654	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19655	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19656	label: 'Audible Bell'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19657	name: 'FramedBox3'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19658	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19659	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19660	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19661	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19662	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19663	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19664	label: 'Beep Generally Enabled'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19665	name: 'beepEnabled'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19666	layout: (LayoutFrame 5 0 10 0 0 1 40 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19667	activeHelpKey: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19668	model: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19669	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19670	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19671	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19672	label: 'Beep in Editor'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19673	name: 'CheckBox7'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19674	layout: (LayoutFrame 40 0 35 0 0 1 65 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19675	activeHelpKey: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19676	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19677	model: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19678	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19679	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19680	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19681	label: 'Beep for Info Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19682	name: 'CheckBox3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19683	layout: (LayoutFrame 40 0 60 0 0 1 90 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19684	activeHelpKey: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19685	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19686	model: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19687	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19688	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19689	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19690	label: 'Beep for Warning Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19691	name: 'CheckBox4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19692	layout: (LayoutFrame 40 0 85 0 0 1 115 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19693	activeHelpKey: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19694	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19695	model: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19696	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19697	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19698	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19699	label: 'Beep for Error Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19700	name: 'CheckBox5'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19701	layout: (LayoutFrame 40 0 111 0 0 1 141 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19702	activeHelpKey: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19703	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19704	model: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19705	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19706	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19707	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19708
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19709	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19710	extent: (Point 564 178)
15876 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	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19713	label: 'Help'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19714	name: 'FramedBox4'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19715	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19716	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19717	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19718	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19719	collection: (
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: 'Tooltips (FlyBy Help)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19722	name: 'CheckBox6'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19723	layout: (LayoutFrame 5 0 7 0 -5 1 37 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19724	activeHelpKey: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19725	model: flyByHelpActive
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	(InputFieldSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19729	name: 'EntryField1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19730	layout: (LayoutFrame -90 1 5 0 -34 1 35 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19731	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19732	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19733	model: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19734	type: timeDurationOrNil
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19735	acceptOnReturn: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19736	acceptOnTab: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19737	acceptOnPointerLeave: true
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	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19740	label: 'Autohide after:'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19741	name: 'Label1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19742	layout: (AlignmentOrigin -94 1 21 0 1 0.5)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19743	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19744	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19745	adjust: right
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19746	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19747	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19748	label: '(s)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19749	name: 'Label2'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19750	layout: (LayoutFrame -31 1 6 0 0 1 36 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19751	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19752	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19753	adjust: left
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19754	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19755	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19756	label: 'Only Show Tooltips for Active Window'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19757	name: 'CheckBox9'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19758	layout: (LayoutFrame 40 0 42 0 0 1 72 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19759	activeHelpKey: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19760	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19761	model: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19762	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19763	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19764	)
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	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19767	extent: (Point 564 108)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19768	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19769	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19770
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19771	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19772	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19773	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19774
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19775	)
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19776	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19777	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19779	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19780
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19781	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19782	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	19783
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19784	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19785	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19786	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19787	self displayErrors value:DeviceWorkstation errorPrinting.
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	19788
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19789	"Modified: / 10-11-2010 / 12:08:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19790	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19791
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19792	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19793
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19794	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19795	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19796	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19797	DeviceWorkstation errorPrinting:self displayErrors value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19798
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19799	super basicSaveSettings.
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19800
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19801	"Modified: / 10-11-2010 / 12:08:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19802	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19804	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19805
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19806	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19807	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19808	beepEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19809	beepInEditor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19810	beepForInfoDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19811	beepForWarningDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19812	beepForErrorDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19813	flyByHelpActive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19814	toolTipAutoHideDelay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19815	sendMessagesAlsoToTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19816	onlyShowTooltipsForActiveWindow
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19817	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19818
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19819	"Created: / 10-11-2010 / 12:07:42 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19820	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19821
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19822	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19823	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19824	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19825	beepEnabled onChangeSend:#updateModifiedChannel to:self
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19826	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19827	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19828	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19829
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19830	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19831	beepForErrorDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19832	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19833	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19834	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19835	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19836	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19837
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19838	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19839	beepForInfoDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19840	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19841	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19842	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19843	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19844	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19845
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19846	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19847	beepForWarningDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19848	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19849	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19850	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19851	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19852	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19853
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19854	beepInEditor
17943 b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	19855	"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	19856	should beep or not."
b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	19857
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19858	beepInEditor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19859	beepInEditor := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19860	beepInEditor onChangeSend:#updateModifiedChannel to:self
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19861	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19862	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19863	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	19864
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19865	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19866
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19867	changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19868	changeFileName := ObjectMemory nameForChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19869	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19870	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19871	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19872	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19873
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19874	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19875
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19876	classInfos isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19877	classInfos := Object infoPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19878	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19879	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19880	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19881	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19882
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19883	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19884
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19885	displayErrors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19886	displayErrors := DeviceWorkstation errorPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19887	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19888	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19889	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19890	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19891
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	19892	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19893	flyByHelp isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19894	flyByHelp := currentUserPrefs flyByHelpActive asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19895	flyByHelp onChangeSend:#updateModifiedChannel to:self
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19896	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19897	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19898	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	19899
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19900	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19901
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19902	logDoits isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19903	logDoits := Smalltalk logDoits asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19904	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19905	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19906	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19907	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19908
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19909	onlyShowTooltipsForActiveWindow
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19910	onlyShowTooltipsForActiveWindow isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19911	onlyShowTooltipsForActiveWindow := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19912	onlyShowTooltipsForActiveWindow onChangeSend:#updateModifiedChannel to:self
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19913	].
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19914	^ onlyShowTooltipsForActiveWindow.
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19915	!
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	19916
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19917	sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19918	sendMessagesAlsoToTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19919	sendMessagesAlsoToTranscript := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19920	sendMessagesAlsoToTranscript onChangeSend:#updateModifiedChannel to:self
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19921	].
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19922	^ sendMessagesAlsoToTranscript.
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19923	!
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19924
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19925	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19926	toolTipAutoHideDelay isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19927	toolTipAutoHideDelay := 10 seconds asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19928	toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19929	].
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19930	^ toolTipAutoHideDelay.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19931
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19932	"Created: / 10-11-2010 / 12:07:10 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19933	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19934
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19935	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19936
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19937	updChanges isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19938	updChanges := Class updatingChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19939	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19940	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19941	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19942	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19943
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19944	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19945
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19946	vmErrors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19947	vmErrors := ObjectMemory debugPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19948	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19949	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19950	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19951	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19952
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19953	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19955	vmInfo isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19956	vmInfo := ObjectMemory infoPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19957	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19958	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19959	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19960	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19961
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19962	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19963
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19964	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19965	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19966	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19967
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19968	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19969
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19970	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19971	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	19972
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	19973	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	19974	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	19975	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	19976	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	19977	^ false
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	19978
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19979	"Modified: / 10-11-2010 / 12:08:25 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19980	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19981
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19982	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'help specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19983
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19984	helpSpec
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19985	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19986	by the UIHelpTool of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19987
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19988	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19989	the UIHelpTool may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19990
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19991	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19992	UIHelpTool openOnClass:AbstractSettingsApplication::FontSettingsAppl
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19993	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19994
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19995	<resource: #help>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19996
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19997	^ super helpSpec addPairsFrom:#(
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19998
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	19999	#terminalOutputIsUTF8
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20000	'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	20001
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20002	#terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20003	'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	20004
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20005	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20006	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20007
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20008	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'image specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20009
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20010	defaultIcon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20011	<resource: #programImage>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20012
16953 9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20013	OperatingSystem isUNIXlike ifTrue:[
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20014	^ ToolbarIconLibrary unixShellTerminal22x22Icon
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20015	].
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20016	^ ToolbarIconLibrary terminal16x16Icon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20017	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20018
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20019	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'interface specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20020
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20021	windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20022	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20023	by the UIPainter of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20024
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20025	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20026	the UIPainter may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20027
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20028	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20029	UIPainter new openOnClass:AbstractSettingsApplication::TerminalViewSettingsAppl andSelector:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20030	AbstractSettingsApplication::TerminalViewSettingsAppl new openInterface:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20031	AbstractSettingsApplication::TerminalViewSettingsAppl open
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20032	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20033
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20034	<resource: #canvas>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20035
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20036	^
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20037	#(FullSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20038	name: windowSpec
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20039	window:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20040	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20041	label: 'Terminalview Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20042	name: 'Terminalview Settings'
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20043	flags: 1
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20044	min: (Point 10 10)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20045	bounds: (Rectangle 0 0 658 543)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20046	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20047	component:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20048	(SpecCollection
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20049	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20050	(VerticalPanelViewSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20051	name: 'VerticalPanel1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20052	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20053	horizontalLayout: fit
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20054	verticalLayout: top
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20055	horizontalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20056	verticalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20057	component:
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20058	(SpecCollection
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20059	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20060	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20061	label: 'Shell / Command Output is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20062	name: 'UserCodeView2'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20063	activeHelpKey: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20064	model: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20065	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20066	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20067	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20068	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20069	label: 'Shell / Command Input is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20070	name: 'CheckBox1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20071	activeHelpKey: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20072	model: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20073	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20074	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20075	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20076	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20077
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20078	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20079	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20080	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20081
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20082	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20083	)
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
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20086	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20087
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20088	aspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20089	^ #(
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20090	#terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20091	#terminalInputIsUTF8
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20092	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20093	!
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20094
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20095	terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20096	terminalInputIsUTF8 isNil ifTrue:[
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20097	terminalInputIsUTF8 := false asValue.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20098	terminalInputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20099	].
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20100	^ terminalInputIsUTF8.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20101	!
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20102
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20103	terminalOutputIsUTF8
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20104	terminalOutputIsUTF8 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20105	terminalOutputIsUTF8 := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20106	terminalOutputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20107	].
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20108	^ terminalOutputIsUTF8.
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20109	! !
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	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'help'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20112
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20113	helpFilename
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20114	^ 'Launcher/terminalSettings.html'
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20115	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20116
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20117	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20118
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20119	defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20120	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20121	by the ImageEditor of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20122
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20123	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20124	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	20125
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20126	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20127	self defaultIcon inspect
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20128	ImageEditor openOnClass:self andSelector:#defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20129	Icon flushCachedIcons
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20130	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20131
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20132	<resource: #image>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20133
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20134	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20135	constantNamed:'AbstractSettingsApplication::ToolboxSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20136	ifAbsentPut:[(Depth4Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20137	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	20138	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	20139	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	20140	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	20141	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20142
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20143	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20144
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20145	developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20146	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20147	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20148
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20149	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20150	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	20151
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20152	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20153	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20154	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20155	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20156
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20157	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20158
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20159	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20160	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20161	name: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20162	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20163	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20164	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20165	name: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20166	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20167	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20168	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20169	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20170	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20171	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20172	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20173	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20174	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20175	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20176	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20177	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20178	postBuildCallback: developmentToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20179	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20180	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20181
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20182	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20183	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20184
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20185	"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	20186	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20187
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20188	miscToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20189	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20190	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20191
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20192	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20193	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	20194
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20195	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20196	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20197	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20198	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20199
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20200	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20201
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20202	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20203	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20204	name: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20205	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20206	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20207	label: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20208	name: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20209	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20210	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20211	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20212	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20213	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20214	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20215	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20216	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20217	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20218	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20219	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20220	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20221	postBuildCallback: miscToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20222	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20223	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20224
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20225	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20226	)
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	"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	20229	!
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	windowSpec
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:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20240	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20241	AbstractSettingsApplication::ToolboxSettingsAppl open
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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20244	<resource: #canvas>
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	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20247	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20248	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20249	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20250	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20251	label: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20252	name: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20253	bounds: (Rectangle 0 0 551 561)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20254	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20255	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20256	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20257	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20258	(NoteBookViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20259	name: 'NoteBook'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20260	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20261	menu: notebookTabList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20262	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20263	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20264
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20265	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20266	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20267	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20268
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20269	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'list specs'!
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	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20272	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20273	by the TabListEditor of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20274
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20275	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20276	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	20277
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20278	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20279	TabListEditor new openOnClass: self andSelector:#notebookTabList
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	<resource: #tabList>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20283
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	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20286	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20287	minorKey: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20288	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20289	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20290	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20291	label: 'Miscellaneous'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20292	minorKey: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20293	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20294	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20295
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20296	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20297
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20298	collect:[:aTab\| TabItem new fromLiteralArrayEncoding:aTab ]
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20299
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20300	"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	20301	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20302
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20303	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'aspects'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20304
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20305	aspects
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20306
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20307	^#(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20308	"Development"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20309	changesBrowserClassName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20310
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20311	"Misc"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20312	fileBrowserClassName
13849 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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20315	"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	20316	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20317
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20318	changesBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20319	<resource: #uiAspect>
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	changesBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20322	changesBrowserClassName := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20323	changesBrowserClassName onChangeSend:#updateModifiedChannel to:self.
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	^ changesBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20326
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20327	"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	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	fileBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20331	<resource: #uiAspect>
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	fileBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20334	fileBrowserClassName := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20335	fileBrowserClassName onChangeSend:#updateModifiedChannel to:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20336	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20337	^ fileBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20338
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20339	"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	20340	"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	20341	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20342
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20343	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20344	"Generated by the TabListEditor"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20345
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20346	\|list\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20347
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20348	(list := builder bindingAt:#notebookTabList) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20349	builder aspectAt:#notebookTabList put:(list := self class notebookTabList).
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20350	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20351	^ list
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	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'hooks'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20355
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20356	developmentToolSettingsInto:panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20357
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20358	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20359	label: 'Changes Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20360	classes:#( #ChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20361	#NewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20362	#Tools::ChangeSetBrowser2 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20363	labels: #( 'ChangesBrowser - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20364	'NewChangesBrowser - experimental, not maintained'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20365	'Tools::ChangeSetBrowser2 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20366	model: self changesBrowserClassName
13849 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	"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	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	miscToolSettingsInto:panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20372
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20373	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20374	label: 'File Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20375	classes:#( #FileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20376	#FileBrowserV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20377	#FileBrowserV3 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20378	labels: #( 'FileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20379	'FileBrowserV2 - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20380	'FileBrowserV3 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20381	model: self fileBrowserClassName
13849 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	"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	20384	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20385
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20386	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'private'!
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	addClassToolSettingTo: panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20389
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20390	\| model setting canvas \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20391	canvas := ApplicationSubView new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20392	setting := ClassToolSetting new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20393	setting createBuilder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20394	setting model: model.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20395	setting window: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20396	canvas client: setting.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20397	canvas height: 30.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20398	panel addSubView: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20399	^setting
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:56:49 / 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	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'protocol'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20405
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20406	helpFilename
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20407	"subclasses must return the relative name of a helpFile
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20408	in the doc/online/<language>/help directory.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20409	Or nil, if no help is available."
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	^ self shouldImplement
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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20414	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting class methodsFor:'interface specs'!
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	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20417	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20418	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20419
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20420	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20421	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	20422
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20423	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20424	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20425	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20426	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting open
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	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20430
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20431	^
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20432	#(FullSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20433	name: windowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20434	window:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20435	(WindowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20436	label: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20437	name: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20438	min: (Point 10 10)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20439	bounds: (Rectangle 0 0 431 60)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20440	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20441	component:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20442	(SpecCollection
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20443	collection: (
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20444	(LabelSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20445	label: 'Tool...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20446	name: 'Label'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20447	layout: (LayoutFrame 0 0 0 0 250 0 30 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20448	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20449	labelChannel: optionLabelHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20450	adjust: left
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20451	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20452	(PopUpListSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20453	label: 'Please select...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20454	name: 'OptionList'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20455	layout: (LayoutFrame 250 0 3 0 0 1 27 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20456	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20457	model: optionSelectionHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20458	menu: optionLabelList
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20459	useIndex: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20460	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20461	(InputFieldSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20462	name: 'EntryField1'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20463	layout: (LayoutFrame 250 0 33 0 0 1 56 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20464	visibilityChannel: optionCustomValueVisibleHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20465	backgroundChannel: optionCustomValueBackgroundHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20466	model: optionCustomValueHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20467	type: string
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20468	immediateAccept: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20469	acceptOnReturn: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20470	acceptOnTab: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20471	acceptOnPointerLeave: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20472	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20473	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20474
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20475	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20476	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20477	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20478
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20479	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'accessing'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20480
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20481	classes: aCollection
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20482
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20483	optionValueList := aCollection.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20484
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20485	"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	20486	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20487
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20488	label: aString
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	self optionLabelHolder value: aString
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	"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	20493	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20494
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20495	labels: aCollection
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	\| labels \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20498	labels := aCollection asOrderedCollection.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20499	labels add: (self class resources at: 'Custom class') asText allItalic.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20500	self optionLabelList value: labels.
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	"Created: / 14-02-2012 / 18:21:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20503	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20504
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20505	model: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20506
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20507	self optionValueHolder: aValueHolder
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	"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	20510	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20511
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20512	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'aspects'!
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	optionCustomValueBackgroundHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20515	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20516
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20517	optionCustomValueBackgroundHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20518	optionCustomValueBackgroundHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20519	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20520	^ optionCustomValueBackgroundHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20521	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20522
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20523	optionCustomValueBackgroundHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20524	"set the 'optionCustomValueBackgroundHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20525
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20526	optionCustomValueBackgroundHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20527	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20528
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20529	optionCustomValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20530	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20531
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20532	optionCustomValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20533	optionCustomValueHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20534	optionCustomValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20535	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20536	^ optionCustomValueHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20537
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20538	"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	20539	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20540
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20541	optionCustomValueVisibleHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20542	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20543
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20544	optionCustomValueVisibleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20545	optionCustomValueVisibleHolder := false asValue.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20546	optionCustomValueVisibleHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20547	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20548	^ optionCustomValueVisibleHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20549
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20550	"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	20551	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20552
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20553	optionLabelHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20554	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20555
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20556	optionLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20557	optionLabelHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20558	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20559	^ optionLabelHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20560	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20561
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20562	optionLabelList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20563	<resource: #uiAspect>
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	optionLabelList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20566	optionLabelList := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20567	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20568	^ optionLabelList.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20569	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20570
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20571	optionLabelList:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20572	"set the 'optionLabelList' value holder (automatically generated)"
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	optionLabelList := something.
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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20577	optionSelectionHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20578	<resource: #uiAspect>
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	optionSelectionHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20581	optionSelectionHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20582	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20583	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20584	^ optionSelectionHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20585
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20586	"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	20587	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20588
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20589	optionSelectionHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20590	"set the 'optionSelectionHolder' value holder (automatically generated)"
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	\|oldValue newValue\|
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	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20595	oldValue := optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20596	optionSelectionHolder removeDependent:self.
13849 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	optionSelectionHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20599	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20600	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20601	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20602	newValue := optionSelectionHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20603	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20604	self update:#value with:newValue from:optionSelectionHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20605	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20606	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20607
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20608	optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20609	"return/create the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20610
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20611	optionValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20612	optionValueHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20613	optionValueHolder addDependent:self.
13849 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	^ optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20616	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20617
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20618	optionValueHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20619	"set the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20620
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20621	\|oldValue newValue\|
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	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20624	oldValue := optionValueHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20625	optionValueHolder removeDependent:self.
13849 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	optionValueHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20628	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20629	optionValueHolder addDependent:self.
13849 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	newValue := optionValueHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20632	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20633	self update:#value with:newValue from:optionValueHolder.
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	! !
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	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'change & update'!
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	update:something with:aParameter from:changedObject
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20640	"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	20641
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20642	"stub code automatically generated - please change as required"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20643
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20644	changedObject == optionSelectionHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20645	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20646
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20647	idx := self optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20648	self optionCustomValueVisibleHolder value: (idx == optionLabelList value size).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20649	idx <= optionValueList size ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20650	self optionValueHolder value: (optionValueList at: idx)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20651	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20652	^ self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20653	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20654	changedObject == optionCustomValueVisibleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20655	self window notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20656	optionCustomValueVisibleHolder value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20657	self window height: 60
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20658	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20659	self window height: 30
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20660	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20661	]
13849 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	changedObject == optionValueHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20665	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20666
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20667	self optionSelectionHolder value: ((optionValueList ? #()) indexOf: optionValueHolder value ifAbsent:[optionLabelList value size]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20668	self optionCustomValueHolder value: optionValueHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20669
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
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	super update:something with:aParameter from:changedObject
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	"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	20676	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20677
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20678	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20679
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20680	helpSpec
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20681	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20682	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20683
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20684	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20685	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20686
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20687	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20688	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20689	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20690
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20691	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20692
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20693	^ super helpSpec addPairsFrom:#(
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20694
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20695	#autoRaiseTranscript
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	20696	'Autoraise the Transcript window when messages are added'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20697
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20698	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20699	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20700
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20701	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20702	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20703
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20704	#useHierarchicalInspector
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20705	'Use the new, hierarchical inspector (unfinished, experimental)'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20706
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20707	#showDidYouKnowTips
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20708	'Show the "Did you Know?" tip browser at startup'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20709
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20710	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20711	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20712
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20713	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20714	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20715
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20716	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20717	'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	20718
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20719	#eclipseStyleMenus
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20720	'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	20721	)
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20722
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	20723	"Modified: / 09-08-2012 / 09:34:41 / cg"
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20724	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20725
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20726	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20727
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20728	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	20729	<resource: #image>
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20730	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20731	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20732	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20733	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20734	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20735	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20736	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	20737	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20738
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20739	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20740	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20741	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20742	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20743	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20744	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20745	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20746	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20747	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20748	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20749	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	20750	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	20751	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	20752	@@@@@@H0B@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@@@@@@@@@@B*****************************(b');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20753	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	20754	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20755	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20756	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20757	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20758	fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20759	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20760	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20761	]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20762	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20763
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20764	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20765
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20766	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20767	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20768	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20770	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20771	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20772
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20773	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	20774	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	20775	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	20776	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20777	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20779	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20780
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20781	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20782	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20783	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20784	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20785	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20786	label: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20787	name: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20788	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20789	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20790	bounds: (Rectangle 0 0 594 584)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20791	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20792	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20793	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20794	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20795	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20796	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20797	layout: (LayoutFrame 0 0.0 0 0 0 1.0 562 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20798	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20799	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20800	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20801	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20802	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20803	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20804	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20805	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20806	label: 'Use the New System Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20807	name: 'NewSystemBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20808	activeHelpKey: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20809	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20810	model: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20811	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20812	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20813	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20814	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20815	label: 'Use the New File Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20816	name: 'NewFileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20817	activeHelpKey: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20818	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20819	model: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20820	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20821	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20822	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20823	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20824	label: 'Use the New VersionDiff Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20825	name: 'VersionDiffBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20826	model: useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20827	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20828	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20829	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20830	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20831	label: 'Use the New FileTree File Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20832	name: 'UseNewFileDialogCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20833	model: useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20834	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20835	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20836	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20837	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20838	label: 'Use the New Settings Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20839	name: 'UseNewSettinsApplicationCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20840	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20841	model: useNewSettingsApplication
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20842	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20843	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20844	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20845	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20846	label: 'Use the New Process Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20847	name: 'UseNewProcessMonitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20848	model: useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20849	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20850	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20851	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20852	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20853	label: 'Use the New TestRunner2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20854	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20855	model: useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20856	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20857	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20858	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20859	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20860	label: 'Use the New Changes Browser for Changefiles (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20861	name: 'ChangesBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20862	model: useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20863	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20864	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20865	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20866	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20867	label: 'Use the New ChangeSet Browser for Internal ChangeSets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20868	name: 'CheckBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20869	model: useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20870	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20871	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20872	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20873	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20874	label: 'Use Hierarchical Inspector (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20875	name: 'HierarchicalInspector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20876	activeHelpKey: useHierarchicalInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20877	model: useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20878	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20879	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20880	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20881	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20882	label: 'Use the Smalltalk Document Viewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20883	name: 'UseSmalltalkDocumentViewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20884	activeHelpKey: useSmalltalkDocumentView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20885	model: useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20886	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20887	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20888	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20889	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20890	name: 'HorizontalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20891	horizontalLayout: leftFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20892	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20893	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20894	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20895	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20896	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20897	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20898	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20899	label: 'External Diff Tool:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20900	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20901	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20902	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20903	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20904	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20905	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20906	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20907	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20908	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20909	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20910	model: externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20911	type: string
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20912	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20913	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20914	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20915	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20916	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20917	extent: (Point 480 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20918	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20919	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20920
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20921	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20922	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20923	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20924	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20925	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20926	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20927	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20928	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20929	label: 'Show "Tip Of The Day" at Startup'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20930	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20931	activeHelpKey: showDidYouKnowTips
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20932	model: showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20933	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20934	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20935	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20936	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20937	label: 'Show Clock in Launcher'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20938	name: 'Clock'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20939	activeHelpKey: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20940	model: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20941	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20942	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20943	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20944	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20945	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20946	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20947	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20948	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20949	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20950	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20951	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20952	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20953	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20954	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20955	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20956	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20957	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20958	name: 'Box4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20959	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20960	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20961	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20962	label: 'Transcript''s Buffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20963	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20964	activeHelpKey: transcriptBufferSize
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	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20967	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20968	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20969	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20970	(InputFieldSpec
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	20971	name: 'Transcript''s Buffer Size'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20972	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20973	model: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20974	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20975	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20976	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20977	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20978	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20979	numChars: 8
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20980	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20981	extent: (Point 78 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20982	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20983	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20984	label: '(Lines)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20985	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20986	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20987	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20988	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20989	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20990	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20991	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20992	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20993
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20994	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20995	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20996	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20997	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20998	label: 'Autoraise Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20999	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21000	activeHelpKey: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21001	model: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21002	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21003	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21004	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21005	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21006	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21007	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21008	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21009	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21010	label: 'Eclipse Style Menus (where implemented)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21011	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21012	activeHelpKey: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21013	model: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21014	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21015	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21016	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21017	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21018
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21019	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21020	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21021	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21022
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21023	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21024	)
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21025
779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21026	"Modified: / 21-09-2018 / 11:19:16 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21027	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21029	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21030
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21031	basicReadSettings
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21032	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21033
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21034	super basicReadSettings.
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21035
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21036	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21037	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21038	self transcriptBufferSize value:transcript lineLimit.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21039	"/ now already in userprefs
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21040	"/ self autoRaiseTranscript value:transcript autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21041	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21042
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21043	"Modified: / 29-08-2013 / 11:40:23 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21044	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21045
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21046	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	21047	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21048
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21049	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21050
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21051	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	21052
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21053	super basicSaveSettings.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21054
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21055	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21056	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21057	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21058
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21059	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21060	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21061	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21062	newSystemBrowserClass installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21063	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21064	newSystemBrowserClass removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21065	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21066	reopenLauncher := true.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21067	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21068
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21069	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21070	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21071	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21072	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21073	FileBrowserV2 installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21074	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21075	FileBrowserV2 removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21076	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21077	reopenLauncher := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21078	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21079	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21080
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21081	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21082	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21083	transcript lineLimit:self transcriptBufferSize value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21084	"/ now already done by UserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21085	"/ transcript autoRaise:self autoRaiseTranscript value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21086	launcher := transcript application.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21087	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21088
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21089	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21090	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21091	currentUserPrefs showClockInLauncher:showClock.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21092	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21093	showClock ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21094	launcher startClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21095	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21096	launcher stopClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21097	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21098	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21099	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21100	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21101
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21102	reopenLauncher ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21103	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21104	launcher reopenLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21105	]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21106	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21107
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21108	"Modified: / 27-07-2012 / 20:51:46 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21109	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21110
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21111	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21112
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21113	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21114	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21115	#eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21116	#useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21117	"/ #useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21118	#useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21119	#useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21120	#useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21121	"/ #useNewSystemBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21122	#useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21123	"/ #useNewFileBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21124	#useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21125	"/ #useNewSettingsApplication -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21126	#useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21127	#useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21128	#showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21129	#showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21130	#externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21131	#autoRaiseTranscript
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21132	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21133
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21134	"Created: / 27-07-2012 / 20:48:18 / cg"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21135	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21136
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21137	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21138	autoRaiseTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21139	autoRaiseTranscript := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21140	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21141	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21142	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21143
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21144	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21145	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21146
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21147	eclipseStyleMenus
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21148	eclipseStyleMenus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21149	eclipseStyleMenus := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21150	eclipseStyleMenus onChangeSend:#updateModifiedChannel to:self
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21151	].
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21152	^ eclipseStyleMenus.
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21153
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21154	"Modified: / 21-09-2006 / 00:39:54 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21155	"Created: / 08-07-2011 / 13:42:13 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21156	!
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21157
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21158	externalDiffCommandTemplate
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21159	externalDiffCommandTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21160	externalDiffCommandTemplate := UserPreferences current externalDiffCommandTemplate asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21161	externalDiffCommandTemplate onChangeSend:#updateModifiedChannel to:self
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21162	].
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21163	^ externalDiffCommandTemplate.
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21164	!
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21165
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21166	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21167	showClockInLauncher isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21168	showClockInLauncher := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21169	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21170	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21171	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21172
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21173	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21174	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21175
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21176	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21177	showTipOfTheDayAtStartup isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21178	showTipOfTheDayAtStartup := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21179	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21180	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21181	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21182
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21183	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21184	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21185
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21186	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21187	transcriptBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21188	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21189	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21190	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21191	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21192	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21193
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21194	useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21195	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21196	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21197	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21198
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21199	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21200	^ useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21201
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21202	"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	21203	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21204
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21205	useNewChangeSetBrowser
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21206	useNewChangeSetBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21207	useNewChangeSetBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21208	useNewChangeSetBrowser onChangeSend:#updateModifiedChannel to:self
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21209	].
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21210	^ useNewChangeSetBrowser.
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21211
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21212	"Modified: / 21-09-2006 / 00:39:37 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21213	"Created: / 27-07-2012 / 20:45:41 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21214	!
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21215
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21216	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21217	useNewChangesBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21218	useNewChangesBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21219	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21220	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21221	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21222
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21223	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21224	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21225
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21226	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21227	useNewFileBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21228	useNewFileBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21229	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21230	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21231	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21232
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21233	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21234	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21235
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21236	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21237	useNewFileDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21238	useNewFileDialog := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21239	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21240	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21241	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21242	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21243
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21244	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21245	useNewInspector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21246	useNewInspector := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21247	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21248	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21249	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21250
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21251	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21252	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21253
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21254	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21255	useNewSettingsApplication isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21256	useNewSettingsApplication := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21257	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21258	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21259	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21260	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21261
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21262	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21263	useNewSystemBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21264	useNewSystemBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21265	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21266	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21267	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21268
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21269	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21270	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21271
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21272	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21273	useNewVersionDiffBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21274	useNewVersionDiffBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21275	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21276	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21277	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21278
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21279	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21280	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21281
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21282	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21283	useProcessMonitorV2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21284	useProcessMonitorV2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21285	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21286	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21287	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21288
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21289	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21290	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21291
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21292	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21293	useSmalltalkDocumentViewer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21294	useSmalltalkDocumentViewer := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21295	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21296	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21297	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21298
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21299	"Modified: / 21-09-2006 / 00:03:13 / cg"
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21300	!
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21301
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21302	useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21303	useTestRunner2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21304	useTestRunner2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21305	useTestRunner2 onChangeSend:#updateModifiedChannel to:self
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21306	].
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21307	^ useTestRunner2.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21308
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21309	"Modified: / 21-09-2006 / 00:39:19 / cg"
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21310	"Created: / 06-07-2011 / 13:52:33 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21311	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21312
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21313	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21314
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21315	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21316	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21317	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21318
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21319	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21320
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21321	hasUnsavedChanges
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21322	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21323
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21324	super hasUnsavedChanges ifTrue:[^ true].
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21325
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21326	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21327	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21328	(self transcriptBufferSize value ~= transcript lineLimit) ifTrue:[^ true].
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21329	"/ now already in UserPreferences
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21330	"/ (self autoRaiseTranscript value ~= transcript autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21331	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21332	^ false.
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21333
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21334	"Modified: / 29-08-2013 / 11:40:55 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21335	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21336
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21337	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21338
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21339	helpSpec
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21340	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21341	by the UIHelpTool of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21342
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21343	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21344	the UIHelpTool may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21345
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21346	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21347	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21348	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21349
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21350	<resource: #help>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21351
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21352	^ super helpSpec addPairsFrom:#(
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21353
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21354	#usersModuleName
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	21355	'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	21356
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21357	#workspaceDirectory
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21358	'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	21359
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21360	)
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21361
f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21362	"Modified: / 11-02-2017 / 15:28:42 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21363	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21364
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21365	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'image specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21366
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21367	defaultIcon
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21368	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21369
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21370	^ self defaultIcon2
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21371
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21372	"Modified: / 28-07-2018 / 09:59:55 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21373	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21374
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21375	defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21376	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21377	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21378
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21379	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21380	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21381
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21382	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21383	self defaultIcon1 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21384	ImageEditor openOnClass:self andSelector:#defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21385	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21386	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21387
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21388	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21389
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21390	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21391	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21392	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21393	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21394	UQES@@@@@@@@@%UUUUT @@@@@@@@@UT#H%TP@@@@@@@@EUH0@2UQ@@@@@@@QUULDPCUUDP@@@@@3UUHDPBUUL0@@@@@@H%TP@UT"@@@@@@@@@%UQEUT @@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21395	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21396	@@@@@@@@@@@@@@@@@@@@@@@@') 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	21397	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21398
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21399	defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21400	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21401	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21402
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21403	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21404	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21405
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21406	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21407	self defaultIcon2 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21408	ImageEditor openOnClass:self andSelector:#defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21409	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21410	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21411
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21412	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21413
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21414	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21415	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21416	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21417	@@]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	21418	@@@@@@@@\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	21419	@@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	21420	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	21421	@@@@@@@@@@@B@ TE@P@@@PTE@ H@@@@@@@@@@@@@@@@@@ TEAPDAAPTE@ @@@@@@@@@@@@@@@@@@@PTEAPTEAPTE@P@@@@@@@@@@@@@@@@@AAPHBAPTEAPHC
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21422	APD@@@@@@@@@@@@@@@@B@ @@@PTE@P@@@0H@@@@@@@@@@@@@@@@@@@@@@@TB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21423	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') 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	21424	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21425
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21426	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'interface specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21427
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21428	windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21429	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21430	by the UIPainter of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21431
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21432	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21433	the UIPainter may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21434
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21435	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21436	UIPainter new openOnClass:AbstractSettingsApplication::WorkspaceSettingsAppl andSelector:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21437	AbstractSettingsApplication::WorkspaceSettingsAppl new openInterface:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21438	AbstractSettingsApplication::WorkspaceSettingsAppl open
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21439	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21440
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21441	<resource: #canvas>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21442
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21443	^
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21444	#(FullSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21445	name: windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21446	window:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21447	(WindowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21448	label: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21449	name: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21450	min: (Point 10 10)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21451	bounds: (Rectangle 0 0 600 320)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21452	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21453	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21454	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21455	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21456	(VerticalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21457	name: 'VerticalPanel2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21458	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	21459	horizontalLayout: fit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21460	verticalLayout: topSpace
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21461	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21462	verticalSpace: 5
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21463	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21464	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21465	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21466	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21467	name: 'HorizontalPanel1'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21468	activeHelpKey: usersModuleName
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21469	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21470	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21471	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21472	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21473	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21474	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21475	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21476	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21477	label: 'Top Level Module ID:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21478	name: 'Label1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21479	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21480	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21481	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21482	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21483	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21484	name: 'EntryField1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21485	model: usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21486	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21487	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21488	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21489	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21490	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21491	)
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	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21495	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21496	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21497	name: 'HorizontalPanel2'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21498	activeHelpKey: workspaceDirectory
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21499	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21500	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21501	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21502	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21503	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21504	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21505	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21506	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21507	label: 'Workspace Directory:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21508	name: 'Label2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21509	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21510	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21511	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21512	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21513	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21514	name: 'EntryField2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21515	model: workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21516	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21517	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21518	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21519	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21520	)
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	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21524	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21525	)
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21526	(HorizontalPanelViewSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21527	name: 'HorizontalPanel3'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21528	activeHelpKey: workspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21529	horizontalLayout: rightSpace
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21530	verticalLayout: center
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21531	horizontalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21532	verticalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21533	component:
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21534	(SpecCollection
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21535	collection: (
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21536	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21537	label: 'Create Workspace Directory'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21538	name: 'Button1'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21539	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21540	model: createWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21541	enableChannel: workspaceDirectoryDoesNotExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21542	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21543	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21544	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21545	label: 'Browse'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21546	name: 'Button2'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21547	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21548	model: browseWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21549	enableChannel: workspaceDirectoryDoesExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21550	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21551	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21552	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21553
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21554	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21555	extent: (Point 600 35)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21556	)
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21557	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21558
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21559	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21560	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21561	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21562
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21563	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21564	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21565	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21566
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21567	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'actions'!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21568
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21569	browseWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21570	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21571
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21572	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21573	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21574	Dialog warn:'Directory does not exist'.
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21575	] ifTrue:[
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21576	FileBrowser default openOn:fn
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21577	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21578	]
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21579
6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21580	"Modified: / 01-09-2017 / 14:01:36 / cg"
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21581	!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21582
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21583	createWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21584	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21585
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21586	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21587	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21588	fn recursiveMakeDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21589	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21590	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21591	! !
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21592
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21593	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'aspects'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21594
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21595	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21596	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21597	#usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21598	#workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21599	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21600	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21601
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21602	usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21603	usersModuleName isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21604	usersModuleName := '' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21605	usersModuleName onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21606	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21607	^ usersModuleName.
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	workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21611	workspaceDirectory isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21612	workspaceDirectory := '~/.smalltalk/workspace' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21613	workspaceDirectory onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21614	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21615	^ workspaceDirectory.
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21616	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21617
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21618	workspaceDirectoryDoesExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21619	^ BlockValue
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21620	with:[:entry \|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21621	\|fn\|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21622
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21623	((fn := workspaceDirectory value) notEmptyOrNil)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21624	and:[(fn := fn asFilename) exists]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21625	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21626	argument:self workspaceDirectory
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21627
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21628	"Created: / 11-02-2017 / 15:43:59 / cg"
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21629	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21630
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21631	workspaceDirectoryDoesNotExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21632	^ BlockValue
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21633	with:[:entry \|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21634	\|fn\|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21635
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21636	((fn := entry) notEmptyOrNil)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21637	and:[ entry asFilename exists not ].
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21638	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21639	argument:(self workspaceDirectory)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21640
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21641	"Created: / 11-02-2017 / 15:42:02 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21642	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21643
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21644	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'help'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21645
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21646	helpFilename
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21647	^ 'Launcher/workspaceSettings.html'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21648	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21649
4226 44e2f83cc526 initial checkin penk parents: diff changeset	21650	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	21651
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21652	version
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21653	^ '$Header$'
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21654	!
7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21655
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	21656	version_CVS
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21657	^ '$Header$'
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21658	! !
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21659

author	Claus Gittinger <cg@exept.de>
	Thu, 28 Feb 2019 12:53:35 +0100
changeset 18624	46065301a4e1
parent 18584	8cb5f9161e9e
child 18653	590ea11e403e
permissions	-rw-r--r--